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

Автор Григорий, 4 марта 2014, 12:03

0 Пользователи и 1 гость просматривают эту тему.

Григорий

создаю макрос в 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 того же модуля)
Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне

Hasim

Цитата: JohnSUN от  5 марта 2014, 14:52использовать функцию ReadDirectories из модуля UCB стандартной библиотеки Tools (пример вызова функции в процедуре Main того же модуля)
А просветить необразованные массы примерчиком?