Vbs-скрипт рекурсивни папки на прозорци (WSH), direqtor

След това взе един скрипт за Windows, за да заобиколят всички подпапки в тази и да направи всеки един мръсен акт. Когато подпапки няколко хиляди, разбира се, че ще се напише програма, а не вашите ръце, за да се изкачи. Чрез внимателен gugleniya и компилация от различни части от код се оказа, като този:

"Създаване и стартирате прозореца, за да изберете основната папка
Задайте objShell = CreateObject ( "Shell.Application")
Задайте objFolder = objShell.BrowseForFolder (0, "Изберете папка:". 0)
"Ако потребителят не е избрал папка, попълване на заявлението
Ако objFolder нищо Тогава Wscript.Quit
'Get пътя към избраната папка
objPath = objFolder.Self.Path
"Създаване на папка обект на файловата система
"И да го изпрати на рекурсивни функции
Задайте FSO = CreateObject ( "Scripting.FileSystemObject")
ShowSubFolders FSO.GetFolder (objPath)
"Сигнализация в края на програмата
Wscript.Echo "ПЕЧАЛБА в" objPath
"Функция рекурсивно папки
Под ShowSubFolders (папка)
"Loop чрез подпапки
За всяка подпапка в Folder.SubFolders
"Във всяка подпапка подпапка направим ние изискваме черен бизнес
"Например, ние получите своето име
Wscript.Echo Subfolder.Name
"Рекурсивно наричаме поддиректории на текущата папка
ShowSubFolders подпапка
до
End Sub
"ПЕЧАЛБА.

Lazy създаде VBS-файл да го изтеглите в края на страницата.
Талантлив може да предложи изпитване за избор на C: шофиране и се опитват да разбера как да се довърши сценария, защото през цялата папка Windows с посланието от името на всеки един от вас явно не се чака. )
Изтегляне на скрипт: folder.rar