Dim strPfad As String
Dim strVerzeichnis As String
 
strPfad = App.Path
If Right(strPfad, 1) <> "\" Then strPfad = strPfad & "\"
strVerzeichnis = Dir(strPfad & "*", vbDirectory)
While strVerzeichnis <> ""
    'eigenes und übergeordnetes Verzeichnis ausschließen:
    If strVerzeichnis <> "." And strVerzeichnis <> ".." Then
        'Prüfen, ob es wirklich ein Verzeichnis ist:
        If (GetAttr(strPfad & strVerzeichnis) And vbDirectory) = vbDirectory _
          Then
            MsgBox strVerzeichnis
        End If
    End If
    strVerzeichnis = Dir
Wend