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 |