Rubrik: Dateisystem · Ordner & Verzeichnisse | VB-Versionen: VB6 | 26.08.04 |
Verzeichnisexistenz prüfen (mit Wildcard-Unterstützung) Existiert ein bestimmtes Verzeichnis? Oder existiert ein ähnliches Verzeichnis? Dieser Tipp gibt die Antwort! | ||
Autor: Dieter Otter | Bewertung: | Views: 11.566 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Tipps zum Prüfen, ob ein bestimmtes Verzeichnis existiert, gibt es en masse. Nachfolgende Funktion geht hier einen Schritt weiter. So unterstützt die DirExistsEx-Funktion bspw. auch Wildcards, wie ? und *.
Ein paar Beispiele:
Auf der Platte D: existieren folgende Ordner:
D:\ D:\Temp D:\Temporäre Dateien D:\Test D:\Testordner ...
' Prüfen, ob Ordner Temp existiert MsgBox DirExistsEx("D:\Temp") ' Gibt True zurück ' Prüfen, ob Ordner Temp1 existiert MsgBox DirExistsEx("D:\Temp1") ' Gibt False zurück ' Prüfen, ob ein Ordner existiert, ' der mit "Temporär*" beginnt MsgBox DirExistsEx("D:\Temporär*") ' Gibt True zurück
Und hier der Code der Funktion FolderExistsEx:
' Prüfen, ob ein Verzeichnis existiert ' (mit Wildcard-Unterstützung, wie ? und *) Public Function DirExistsEx(ByVal sPath As String) As Boolean Dim iResult As Integer Dim sDir As String On Error Resume Next sDir = Dir$(sPath, vbDirectory) If Len(sDir) > 0 Then If InStr(sPath, "\") > 0 Then sPath = Left$(sPath, InStrRev(sPath, "\")) sDir = sPath & sDir End If iResult = GetAttr(sDir) DirExistsEx = IIf(Err = 0, True, False) End If End Function