переборка подпапок

[Григорий]

создаю макрос в openoffice переборки подпапок .
dim fso
dim ffolder
dim f

Set fso = CreateObject("Scripting.FileSystemObject")
Set ffolder = fso.getfolder("D:\install")'cFolder- название
For Each f In ffolder.SubFolders
   msgbox f.Name
Next f

на строке
For Each f In ffolder.SubFolders
выдает ошибку несовместимости типов.
подскажите пожалуйста что делать.

[Hasim]

 Это код VBA. Да еще и Windows Script Host.
Нужно переписывать на OOOBasic.

[Григорий]

код переделал.

AllDirs = ""
NextDir = Dir(path, 16)

While NextDir <> ""
AllDirs = AllDirs & Chr(13) & NextDir
  MsgBox NextDir
NextDir = Dir
Wend
MsgBox AllDirs


работает только с случае если path = "C:\" или path = "D:\" если  поставить путь глубже не работает. подскажите пожалуйста

[JohnSUN]

Правильное решение - использовать функцию ReadDirectories из модуля UCB стандартной библиотеки Tools (пример вызова функции в процедуре Main того же модуля)

[Hasim]

использовать функцию ReadDirectories из модуля UCB стандартной библиотеки Tools (пример вызова функции в процедуре Main того же модуля)

А просветить необразованные массы примерчиком?