08-20-2011, 09:11 AM
Ah okay, well what you can do is use this code...
This should work!
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
If item.DirectoryName = My.Application.Info.DirectoryPath Then
dim path as string = item.fullname.replace(my.application.info.directorypath, "")
output = output + path + vbNewLine
Else
dim path as string = item.fullname.replace(my.application.info.directorypath, "")
output = output + path + vbNewLine
End If
Next
This should work!