Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
Reeks objTopFolder = objFSO.GetFolder („C:\Books“)
Voor Elke objSubFolder in objTopFolder.SubFolders
Voor elk objFile in objSubFolder.Files
WScript.Echo „schrap“ & objFile
objFile objFSO.DeleteFile
Daarna
Voor Elke objSubSubFolder in objSubFolder.SubFolders
WScript.Echo „schrap“ & objSubSubFolder
objFSO.DeleteFolder objSubSubFolder
Daarna
Daarna
|