删除目录下的文件及子目录

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