Using fs As New IO.FileStream("C:\Dateien.txt", IO.FileMode.OpenOrCreate, _
    IO.FileAccess.Write)
            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

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