VB: Existiert eine Datei oder ein Ordner?

Wenn Sie prüfen wollen, ob eine bestimmte Datei oder ein ordner existiert, müssen Sie den Pfad mit Hilfe einer Funktion aufrufen und bei einem "Fehler" steht dann fest, ob die Datei oder der Ordner existiert. Das Ganze packt man am Besten in eine bzw. zwei spezielle Funktionen und schon kann man die Existenz einer Datei/eines Ordners schnell und einfach prüfen.

Bewertung dieses Tipps:

(bewertet von insgesamt 50 Besuchern)

Wie immer gilt: Wenn Sie die folgenden Funktionen in einem Modul plazieren, sind sie im gesamten Projekt verfügbar:

'Existiert eine Datei?
Function FileExists(File As String) As Boolean
   On Error Resume Next
   FileExists = False
   FileExists = Dir(File) <> ""
End Function

'Existiert ein Verzeichnis?
Function FolderExists(Folder As String) As Boolean
   On Error Resume Next
   FolderExists = False
   FolderExists = Dir(Folder, vbDirectory) <> ""
End Function

Die Funktionen geben True zurück, wenn die Datei oder das Verzeichnis existiert, im anderen Fall False.

Der Aufruf der Funktionen ist sehr leicht:

TrueOrFalse = FileExists("C:\Datei.dat")

TrueOrFalse = FolderExists("C:\Ordner")

Quellen: SHADOWare.de
Letzte Änderung: 14.06.00