Сканирование папки

[sergey-911]

Доброго времени уважаемые!
Есть к Вам вопрос, хотя, кому-то покажется, что и не заслуживающий внимания.
Нужно, в определенной директории, узнать список всех вложенных папок (не файлов), которые могут содержать другие вложенные папки, которые тоже нужно просмотреть. Названия, нужно сохранить, к примеру в массиве или таблице.
Уважаемые, подскажите, как реализовать. Да и поиск, хочется, чтобы работал побыстрее.

[Faust]

FAQ

[Tarik]

ИМХО можно намного проще через FSO и рекурсию.

Код: Выделить всё

Dim fso As New FileSystemObject
Dim folder1 As Folder
Dim folder2 As Folder

Sub DoFolder(dfpath As String)
Set folder1 = fso.GetFolder(dfpath)
'For Each file In folder1.Files 'раскомментировать,
'    List1.AddItem file.path 'если нужно добавлять
'Next 'и файлы
If folder1.SubFolders.Count > 0 Then
    For Each folder2 In folder1.SubFolders
        List1.AddItem folder2.path
        DoFolder folder2.path
    Next
Else
    Exit Sub
End If
End Sub

[sergey-911]

Tarik
Спасибо огромное! Завтра посмотрю на работе!

Какие еще есть предложения?

[Alexander N. Samarin]

Код: Выделить всё


DIR *.* /s/b > list.txt