Try
            My.Computer.FileSystem.CurrentDirectory = System.IO.Path.Combine( _
              My.Computer.FileSystem.SpecialDirectories.MyDocuments, _
              "Ordner1\file2")
 
            Dim FileList As System.Collections.ObjectModel.ReadOnlyCollection( _
              Of String)
 
            FileList = My.Computer.FileSystem.GetFiles( _
                       My.Computer.FileSystem.CurrentDirectory, _
                       FileIO.SearchOption.SearchAllSubDirectories, "*.*")
 
            Dim sw As New System.IO.StreamWriter("D:\Files.txt")
 
            For Each foundFile As String In FileList
                sw.WriteLine(foundFile)
            Next
 
            sw.Close()
            sw.Dispose()
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try