Admin
Регистрация: 05.10.2005
Проживание: Москва
Сообщения: 284
|
Бегаем скриптом по папкам...
Рекурсия - просто и сердито! :) Мож кому пригодится пример (Тут знаки табуляции некорректно отображаются, для полной структуры текста делайте "Просмотр 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
|