Private Sub MyDocsLesen()
        Dim dirInfo As New IO.DirectoryInfo(System.Environment.GetFolderPath( _
          Environment.SpecialFolder.MyPictures))
        Dim fileInfos() As IO.FileInfo
        fileInfos = dirInfo.GetFiles("*.*", IO.SearchOption.AllDirectories)
 
        Using oSW As New IO.StreamWriter("D:\Docs.txt")
 
            For Each fileInfo As IO.FileInfo In fileInfos
                oSW.WriteLine(fileInfo.FullName)
            Next
 
            oSW.Flush()
            oSW.Close()
        End Using
    End Sub