Ustalony objFSO = CreateObject ("Scripting.FileSystemObject")
Ustalony objTopFolder = objFSO.GetFolder ("C:\Books ")
Dla ObjTopFolder.SubFolders objSubFolder W objTopFolder.SubFolders
Dla ObjSubFolder.Files objFile W objSubFolder.Files
WScript.Echo "Deleatur" & objFile
objFSO.DeleteFile objFile
Następnie
Dla ObjSubFolder.SubFolders objSubSubFolder W objSubFolder.SubFolders
WScript.Echo "Deleatur" & objSubSubFolder
objFSO.DeleteFolder objSubSubFolder
Następnie
Następnie
|