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:     [ Jetzt bewerten ]	Views:  12.136
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 12 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.2 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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