✔ Überprüfen ob Ordner existiert @ VBA

[Blaubmania]

Hiho,

also folgendes wie kann ich in VBA überprüfen ob ein bestimmter Pfad o. Ordner existiert?!
Bei Dateien gehts mit Dir() aba zur Pfad bzw. Ordnerüberprüfung habe ich nichts wirklich gefunden.

Danke schon mal im vorraus für den erlösenden Hinweis.

 

[DevHB]

Hi,

so:

Public Function DirExists(ByRef sPath As String _
) As Boolean

    On Error Resume Next
    Dim enmFileAttribute As VBA.VbFileAttribute
    
    enmFileAttribute = VBA.GetAttr(sPath)
    DirExists = CBool( _
                        (Err.Number = 0) And _
                        (enmFileAttribute And VBA.VbFileAttribute.vbDirectory) _
                         = VBA.VbFileAttribute.vbDirectory _
                      )
End Function

 

[Blaubmania]

Danke Schön, klappt wunderbar