Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objFolder = objfso.GetFolder(“e:\aaa”)
For Each objFile In objFolder.Files
objfile.Delete
Next
For Each objSubFolder In objfolder.SubFolders
objSubFolder.Delete
Next
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objFolder = objfso.GetFolder(“e:\aaa”)
For Each objFile In objFolder.Files
objfile.Delete
Next
For Each objSubFolder In objfolder.SubFolders
objSubFolder.Delete
Next