Ajustar o objFSO = o CreateObject (“Scripting.FileSystemObject”)
Ajustar o objTopFolder = o objFSO.GetFolder (“C:\Books ")
Para cada objSubFolder em objTopFolder.SubFolders
Para cada um objFile em objSubFolder.Files
WScript.Echo “supressão” & objFile
objFSO.DeleteFile objFile
Em seguida
Para cada objSubSubFolder em objSubFolder.SubFolders
WScript.Echo “supressão” & objSubSubFolder
objSubSubFolder de objFSO.DeleteFolder
Em seguida
Em seguida
|