Private Sub main()
        Dim files As New Specialized.StringCollection()
        Dim i As Integer
 
        FindFiles("Kunden", "*.xml", files)
 
        For i = 0 To files.Count - 1
            List2.Items.Add(files(i))
        Next
 
        List2.Sorted() = True
 
    End Sub

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