Feststellen ob eine Datei vorhanden ist

Folgende Funktion kann dazu genutzt werden um festzustellen, ob eine bestimmte Datei vorhanden ist oder nicht:

Public Function FileExists(strFile As String) As Boolean

FileExists = (Len(Dir(strFile)) > 0)

End Function

Die Funktion FileExists kann nun wie folgt benutzt werden:

FileExists(Pfad\Dateiname.xxx)