Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

20 Август 2019, 15:11 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Здесь можно поблагодарить участников форума Улыбка
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: переборка подпапок  (Прочитано 3043 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Григорий
Новичок
*
Offline Offline

Сообщений: 2


« Стартовое сообщение: 4 Март 2014, 11:03 »

создаю макрос в 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
Форумчанин
***
Offline Offline

Сообщений: 754


Woe from wit


« Ответ #1: 4 Март 2014, 12:07 »

 Это код VBA. Да еще и Windows Script Host.
Нужно переписывать на OOOBasic.
Записан
Григорий
Новичок
*
Offline Offline

Сообщений: 2


« Ответ #2: 4 Март 2014, 13:51 »

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

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

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


работает только с случае если path = "C:\" или path = "D:\" если  поставить путь глубже не работает. подскажите пожалуйста
Записан
JohnSUN
Капитана в тот день называли на "ты"
Гуру
*******
Offline Offline

Пол: Мужской
Расположение: Киев
Сообщений: 2 764


Помогаю людям и компьютерам понимать друг друга


WWW
« Ответ #3: 5 Март 2014, 14:52 »

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

Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне
Hasim
Форумчанин
***
Offline Offline

Сообщений: 754


Woe from wit


« Ответ #4: 6 Март 2014, 08:06 »

использовать функцию ReadDirectories из модуля UCB стандартной библиотеки Tools (пример вызова функции в процедуре Main того же модуля)
А просветить необразованные массы примерчиком?
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!