Установите objFSO = CreateObject («Scripting.FileSystemObject»)
Установите objTopFolder = objFSO.GetFolder («C:\Books ")
Для каждого objSubFolder в objTopFolder.SubFolders
Для каждого objFile в objSubFolder.Files
WScript.Echo «Delete» & objFile
objFSO.DeleteFile objFile
Затем
Для каждого objSubSubFolder в objSubFolder.SubFolders
WScript.Echo «Delete» & objSubSubFolder
objSubSubFolder objFSO.DeleteFolder
Затем
Затем
|