Hallo!
Ichmöchte auf eine externe Datei zugreiffen. Nun gibt es aber leider mehrere Möglichkeiten, wo diese Datei sein kann. Auf Grund der begrenzten Anzahl von Möglichkeiten könnte man das nun noch recht einfach über eine if…then-Abfrage lösen, nur bleibt das Problem, wie der Befehl lauten muß, daß man auf die Existenz einer Datei prüfen kann.
Gruß
Thomas
Hallo Thomas,
dazu kannst Du die DIR()-Funktion verwenden. Gib der DIR()-Funktion als Parameter den Dateinamen (incl. Pfad) mit. Du erhälst eine leere Zeichenfolge (""), wenn die Datei nicht existiert. Gibt es die Datei tatsächlich, erhälst Du den Dateinamen als Ergebnis.
Das Ganze kannst Du auch in eine eigene Funktion packen:
Public Function FileExists(Dateiname As String) As Boolean
FileExists = Dir(Dateiname) ""
End Function
Oder halt direkt:
if Dir("c:\autoexec.bat") "" then
msgbox "Datei existiert!"
else
msgbox "Datei existiert nicht!"
end if
Gruß
(Woly)