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