Информация
На главную Главная

Мой t-cards.ru
Войти Войти
Зарегистрироваться Регистрация

Разное
Форум Форум
Вернуться Форумы на t-cards.ru> Hard"n"Soft
Логин
Пароль
Регистрация Участники Поиск >> FAQ


Сообщения в теме: "Бегаем скриптом по папкам......"
24.03.2005 17:35
Admin

Регистрация: 05.10.2005
Проживание: Москва
Сообщения: 272
По умолчаниюБегаем скриптом по папкам...

Рекурсия - просто и сердито! :) Мож кому пригодится пример (Тут знаки табуляции некорректно отображаются, для полной структуры текста делайте "Просмотр html-кода").
Получаем весь контент папки, включая вложенные. Итак,

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

GetFolderContent "C:\Путь_к_нашей_папке\"

function GetFolderContent(path)

Dim fold
Set fold = fso.GetFolder(path)

For Each f in fold.Files
WScript.Echo path & f.Name
Next

For Each sf in fold.SubFolders
GetFolderContent path & sf.Name & "\"
Next

Set fold = Nothing
End Function