Эта функция вроде пашет
| Код |
Function GetFileList(ByVal dirInf As System.IO.DirectoryInfo, Optional ByVal prevStr As String = "") As String()
Dim lst As New List(Of String)
For Each di As System.IO.DirectoryInfo In dirInf.GetDirectories()
lst.AddRange(GetFileList(di, prevStr & IIf(prevStr.Length > 0, "\", "") & dirInf.Name))
Next
For Each fi As System.IO.FileInfo In dirInf.GetFiles()
lst.Add(prevStr & "\" & fi.Name)
Next
Return lst.ToArray
End Function
|
Передаёшь ей объект System.IO.DirectoryInfo, она возвращает строковый массив с именами файлов в нужном тебе формате. |