VBA Tipp: DirExists

Aus DBWiki
Wechseln zu: Navigation, Suche

Aufgabenstellung

Ich möchte feststellen, ob ein Ordner existiert. Statt Dir() mit dem Parameter vbDirectory einzusetzen werden folgende Lösungen empfohlen.

Lösung 1

Public Function OrdnerExistiert(Pfad As String) As Boolean
 
 'Quelle: http://www.dbwiki.net/
 
 On Error Resume Next
 OrdnerExistiert = (GetAttr(verzeichnispfad) And vbDirectory) = vbDirectory
 On Error GoTo 0
 
End Function

Lösung 2

Public Function OrdnerExistiert(Pfad As String) As Boolean
 
 'Quelle: http://www.dbwiki.net/
 
 OrdnerExistiert = CreateObject("Scripting.FileSystemObject").FolderExists(Pfad)
 
End Function

Aufruf

 Dim strPfad As String
 strPfad = "D:\Mein Pfad"
 
 If OrdnerExistiert(strPfad) Then
   MsgBox "Der Ordner existiert."
 Else
   MsgBox "Der Ordner existiert nicht."
 End If

Web-Links