SubDir

[Cytron]

Доброе время суток.
Вопрос такой:
Как перечислить файлы в заданной папке и подпапках этой папки?
Например так:
Имеется папка Grand
Вот содержание папки Grand:

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

\a.txt
\Bzd\
\zid\zid.exe


Вся фишка в том, что нужно получить содержание подпапок тоже.
Использовать формы нельзя, приложение является одним модулем - FileListBox отпадает.
Если такой вопрос уже вставал, прошу прощения и прошу пожалуйста дать ссылку - сам я искал но без FileListBox и без FSO, которое тоже использовать нельзя - не нашёл.

[keks-n]

Dir

[SSecurity]

Вообще-то ... вопрос о том как перечислить файлы подробно рассматривался в теме "Найти и удалить файл" .... тут близко была.

по повду поиска, я бы тебе всеже рекомендовал б испольовать FSO, тем более что для него не требуется форма.

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

On error resume next
Dim FSO as Object
Set FSO = CreateObject("Scripting.FileSystemObject")
IF FSO IS Nothing THEN End
'## удалось создать объект FSO


[tyomitch]

Было в FAQ.