Fastställd objFSO = CreateObject (”Scripting.FileSystemObject”)
Fastställd objTopFolder = objFSO.GetFolder (”C:\Books”)
För varje objSubFolder i objTopFolder.SubFolders
För varje som är objFile i objSubFolder.Files
WScript.Echo ”borttagnings” & objFile
objFile objFSO.DeleteFile
Därefter
För varje objSubSubFolder i objSubFolder.SubFolders
WScript.Echo ”borttagnings” & objSubSubFolder
objFSO.DeleteFolder-objSubSubFolder
Därefter
Därefter
|