• snake
  • Участник
  • Неактивен
  • Откуда: Чебоксары Версия TCS 6.3.0.0
  • На форуме с 24 марта 2010
  • Сообщений: 103

Тема: Файлы в папке

Подскажите, пожалуйста, как в VBSctipt пробежаться по файлам конкретной папки на диске, например, считывая имена файлов (как минимум без диалога для выбора папки и файлов, как максимум с диалогом). Какие объекты для этого использовать?

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: Файлы в папке

TechnologiCS 6.0 и выше

Примеры работы с пользовательскими меню, деревом, динамическим созданием контролов и динамическим созданием обработчиков событий.

"Ex2_ControlsSample" - Пример работы с динамическим созданием контролов и обработчиков событий, пользовательскими меню.

"Ex3_TreeSample" - Пример работы с контролом "AxDbTree".

"Ex3_TreeSampleV2" - Улучшенный и исправленный пример работы с контролом "AxDbTree".

"Ex4_TreeEvent" - обработка событий в дереве.

Там где то пример отображения структуры каталогов.


Примеры тестовые, писались давно, но думают заведутся, сильных изменений не должно быть.

Спасибо сказали: snake1
Post's attachments

Ex2_ControlsSample.eiScript 1.37 Кб, 3 скачиваний с 2013-05-29 

Ex3_TreeSample.eiScript 1.58 Кб, 2 скачиваний с 2013-05-29 

Ex3_TreeSampleV2.eiScript 1.83 Кб, 3 скачиваний с 2013-05-29 

Ex4_TreeEvents.eiScript 16.09 Кб, 2 скачиваний с 2013-05-29 

You don't have the permssions to download the attachments of this post.

Ответ от snake (изменено: snake, 29 мая 2013 15:53:06)

  • snake
  • Участник
  • Неактивен
  • Откуда: Чебоксары Версия TCS 6.3.0.0
  • На форуме с 24 марта 2010
  • Сообщений: 103

Re: Файлы в папке

Олег, спасибо за примеры!
4 пример подходящий, в 6 версии TCS завелся благополучно.
В версии 5.0.2 воспользовалась объектом CreateObject("Scripting.FileSystemObject") и реализовала стоящую задачу (пока без диалога).

Set FSObj = CreateObject("Scripting.FileSystemObject")
...
Set dFolder = FSObj.GetFolder(path_file)
...
For Each dFile In dFolder.Files   
       Call TCSApp.ShowMessageBox( "Файл",dFile.Name)
       ...
Next
...