Rubrik: Dateisystem · Ordner & Verzeichnisse | VB-Versionen: VB4, VB5, VB6 | 19.08.05 |
Prüfen, ob Verzeichnis existiert V Mit Hilfe der Dir Funktion wird hier geprüft, ob ein Verzeichnis existiert. | ||
Autor: Lars Mengel | Bewertung: | Views: 18.625 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Da in jedem Verzeichnis ein sogenannter Null-Eintrag existiert, lässt sich mit Hilfe der Dir-Funktion sehr einfach prüfen, ob ein Verzeichnis existiert.
Public Function FolderExists(ByVal Path As String) As Boolean ' Falls nicht vorhanden Backslash zum Pfad hinzufügen If Right$(Path, 1) <> "\" Then Path = Path & "\" ' Prüfen ob Verzeichnis existiert FolderExists = (UCase$(Dir$(Path & "\nul")) = "NUL") End Function