Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
        Dim files As System.Collections.ObjectModel.ReadOnlyCollection(Of _
        String)
        files = My.Computer.FileSystem.GetFiles("C:\Dateien\", _
        FileIO.SearchOption.SearchAllSubDirectories, "*.txt") 'alle Textdateien 
        ' im Ordner C:\dateien auflisten
        Using fs As New IO.FileStream("C:\Dateien.txt", _
          IO.FileMode.OpenOrCreate, IO.FileAccess.Write) 'Datei Dateien.txt 
        ' öffnen, wenn nicht vorhanden neu erstellen
            Dim sw As New IO.StreamWriter(fs)
            For Each s As String In files
                sw.WriteLine(s)
            Next
            sw.Flush()
            fs.Flush()
            sw.Dispose()
        End Using
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus