Vbs-script foldere recursive pe Windows (WSH), direqtor

A fost nevoie apoi un script pentru Windows pentru a ocoli toate subfolderele din acest lucru și fac fiecare faptă murdară. În cazul în care sub-dosare câteva mii, desigur, va scrie un program, nu-ți mâinile pentru a urca. Prin gugleniya atent și compilație de piese diferite de cod care le-a dovedit ca aceasta:

„Crearea și executați dialogul pentru a selecta directorul rădăcină
Set objShell = CreateObject ( "Shell.Application")
Set objFolder = objShell.BrowseForFolder (0, "Selectați un dosar:". 0)
„În cazul în care utilizatorul nu a selectat un dosar, completați cererea
Dacă objFolder este nimic Atunci Wscript.Quit
„Ia calea către directorul selectat
objPath = objFolder.Self.Path
„Crearea unui dosar de sistem de fișiere obiect
„Și trimite-l la funcția recursiv
Set FSO = CreateObject ( "Scripting.FileSystemObject")
ShowSubFolders FSO.GetFolder (objPath)
„Semnalizarea sfârșitul programului
Wscript.Echo "profit în" objPath
„Funcția de foldere recursiv
ShowSubFolders Sub (Folder)
„Buclă prin subfoldere
Pentru fiecare subfolder in Folder.SubFolders
„În fiecare subdosar subfolder nu avem nevoie de afaceri negru
„De exemplu, deducem numele său
Wscript.Echo Subfolder.Name
„Numesc recursiv subfoldere curent
ShowSubFolders subdosar
următor
end Sub
„Profit.

Lazy crea un VBS-fișier poate descărca de la sfârșitul paginii.
Un talentat poate oferi de testare pentru a selecta unitatea C: și să încerce să dau seama cum să termine scenariul, pentru că prin toate folderul Windows cu mesajul în numele fiecăruia dintre voi este în mod clar nu așteptați. )
Descarcă script: folder.rar