Public Class Liste
    Private Sub main()
        With List2
            .Items.Add("Bla")
            .Items.Add("Chasa")
            .Items.Add("daaasass")
            .Items.Add("emil")
            .Sorted() = True
        End With
    End Sub
 
    Private Sub Liste_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        main()
    End Sub
 
    Private Sub List1_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles List2.Click
        Dim enumerator As IEnumerator = List2.SelectedItems.GetEnumerator()
        Do While enumerator.MoveNext
            Text1.Text = enumerator.Current.ToString
        Loop
    End Sub
 
    Private Sub FindFiles(ByVal Path As String, ByVal filter As String, ByRef _
      results As Specialized.StringCollection)
        Dim i As Integer
        Dim res() As String = Directory.GetFiles(Path, filter)
        For i = 0 To res.Length - 1
            results.Add(res(i))
        Next
 
        res = Directory.GetDirectories(Path)
        For i = 0 To res.Length - 1
            results.Add(res(i))
        Next
 
        res = Directory.GetDirectories(Path)
        For i = 0 To res.Length - 1
            FindFiles(res(i), filter, results)
        Next
    End Sub
 
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim files As New Specialized.StringCollection()
        Dim i As Integer
        Dim Suche As String
        Suche = Text1.Text
        FindFiles("C:\Dokumente und Einstellungen\Stefan\Eigene Dateien\Visual" & _
          "Studio 2005\Projects\Lizenen\Lizenen\bin\Debug\Kunden", _
        Suche & ".xml", files)
 
        For i = 0 To files.Count - 1
            MsgBox("Datei wurde unter folgendem Pfad gefunden: " & vbCr & files( _
              i))
        Next
    End Sub
End Class

Sprache: VB.NET 4.0
Entwicklungsumgebung: VS 2010
Betriebssystem: Windows 7