Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objfso.GetFolder("e:\aaa")
创新互联2013年至今,是专业互联网技术服务公司,拥有项目做网站、网站设计网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元清河做网站,已为上家服务,为清河各地企业和个人服务,联系电话:18980820575
For Each objFile In objFolder.Files
objfile.Delete
Next
For Each objSubFolder In objfolder.SubFolders
objSubFolder.Delete
Next