IfFileExist

Public Function Exists(ByVal sFilename As String) As Boolean
'Restituisce True se il file esiste

'Altrimenti restituisce False.

If Len(Trim$(sFilename)) > 0 Then
On Error Resume Next
sFilename = Dir$(sFilename)
Exists = ((Err.Number = 0) And (Len(sFilename) > 0))
Else
Exists = False
End If
End Function