Public Class Form1
   Private parameter = "Der Name des Ordners"
   Private successful As Boolean = False
 
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
      Dim dir As New IO.DirectoryInfo("C:\")
      Try
         For Each d As IO.DirectoryInfo In dir.GetDirectories()
 
            If d.Name = parameter Then
               successful = True
               MsgBox(d.FullName)
            End If
 
            Call Rekursiv(d)
         Next
      Catch ex As Exception
 
      End Try
      If successful = False Then
         MsgBox("Kein Treffer!")
      End If
   End Sub
 
   Private Sub Rekursiv(ByVal Dir As IO.DirectoryInfo)
      Try
         For Each d As IO.DirectoryInfo In Dir.GetDirectories()
 
            If d.Name = parameter Then
               successful = True
               MsgBox(d.FullName)
            End If
 
            'Rekursiver Aufruf
            Call Rekursiv(d)
         Next
      Catch ex As Exception
      End Try
   End Sub
 
End Class

Visual Basic Express 2010, C# Express 2010
Intel? i7 Core 920@2.63 Ghz, 6 GByte DDR3, 1024 MB ATI? Radeon? 5870, Windows 7 Prof. 64 Bit
Gibson SG 61' Reissue ; Ibanez Prestige RG 2550 E, Marshall Valvestate VS100 + Modell Vs412 (4 x 12''), Cubase Studio