Option Explicit
 
Dim Ergebnis As String
 
Private Sub Command1_Click()
 
Dim gesuchterordner As String
Dim Startordner As String
 
gesuchterordner = "FindeMichOrdner"
 
Startordner = "d:\"
 
Call UnterverzeichnisseDurchsuchen(Startordner, gesuchterordner)
 
If Ergebnis <> "" Then
MsgBox ("Der Verzeichnisname wurde gefunden in: " & Ergebnis)
Else
MsgBox ("Der Verzeichnisname wurde in keinem Unterverzeichnis gefunden!")
End If
 
Ergebnis = ""
 
End Sub
 
Private Sub UnterverzeichnisseDurchsuchen(folder As Variant, gesuchterordner As _
  String)
 
Dim fso As Object
Dim fld As Object
Dim sfld As Object
 
On Error Resume Next
 
Set fso = CreateObject("scripting.filesystemobject")
 
Set fld = fso.getfolder(folder)
 
If LCase(fld.Name) = LCase(gesuchterordner) Then
Ergebnis = fld
Exit Sub
End If
 
For Each sfld In fld.subfolders
Call UnterverzeichnisseDurchsuchen(sfld, gesuchterordner)
Next
 
Set sfld = Nothing
Set fld = Nothing
Set fso = Nothing
 
End Sub

EALA FREYA FRESENA