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