08-20-2011, 10:43 AM
Well that could be a problem... Try this code!
This should do it!!!
Code:
Dim output As String = ""
Dim dirinfo As New System.IO.DirectoryInfo(My.Application.Info.DirectoryPath)
Dim allfileinfo() As System.IO.FileInfo = dirinfo.GetFiles("*", IO.SearchOption.AllDirectories)
For Each item In allfileinfo
dim path as string = item.fullname.replace(my.application.info.directorypath, "")
output = output + path + vbNewLine
Next
This should do it!!!