Try
                My.Computer.FileSystem.CurrentDirectory = _
                  System.IO.Path.Combine( _
                 My.Computer.FileSystem.SpecialDirectories.MyDocuments, _
                "Ordner1\file2")
 
 
 
                Dim dateiendung As String = "*.*"
                Dim suchoption As SearchOption = SearchOption.AllDirectories
 
                Dim dinfo As New IO.DirectoryInfo( _
                  My.Computer.FileSystem.CurrentDirectory)
                Dim ordnername As String = dinfo.Name
                Dim dateisubpath As String = String.Empty
 
                For Each finfo As IO.FileInfo In dinfo.GetFiles(dateiendung, _
                  suchoption)
                    dateisubpath = finfo.FullName.Replace(dinfo.FullName, _
                    String.Empty)
                    s.WriteLine("File """ & ordnername & dateisubpath & """")
 
                Next
 
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try