Содержимое папки (только папки)

[kuhtiov]

Как сформировать список папок, находящихся например, в папке c:\Windows (без подпапок) ?

Что-то вроде этого:
Dim s As String
s = Dir("c:\")
Do While Len(s)
Debug.Print s
s = Dir
Loop

Только в данном случаи возвращаются файлы, а мне нужны каталоги

[iGrok]

А у Dir ещё параметры есть. Не смотрел?

[kuhtiov]

Смотрел. Вот тут http://msdn.microsoft.com/ru-ru/library/dk008ty4(VS.90).aspx
Только я не вижу, где параметр в том примере, который я привел, да и сам параметр нужный не нашел

[iGrok]

Да ладно? Искал значит плохо.
s = Dir("c:\", vbDirectory)

[kuhtiov]

Спасибо огромное

[iGrok]

Минус только один - выдаются не только папки, но и файлы.
Решение - проверять атрибуты найденного файла:

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

Dim s As String
s = Dir("c:\", vbDirectory Or vbHidden Or vbSystem)
Do While Len(s)
Debug.Print s, GetAttr("c:\" & s) And vbDirectory
s = Dir(, vbDirectory Or vbHidden Or vbSystem)
Loop


Правда, GetAttr над файлами hiberfil.sys, pagefile.sys вызовет ошибку, поэтому надо ещё и обработку ошибок добавить.

З.Ы.
Как более правильный, но немного более сложный вариант, можно использовать API FindFirstFile, FindNextFile, и в WIN32_FIND_DATA проставлять нужный атрибут (FILE_ATTRIBUTE_DIRECTORY).

[VVitafresh]

Или воспользоваться FSO (FileSystemObject). Объект Folder, свойство SubFolders.