Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objfso.GetFolder("e:\aaa")

创新互联建站主要从事成都网站设计、网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务凌源,10余年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18982081108

For Each objFile In objFolder.Files
        objfile.Delete
Next

For Each objSubFolder In objfolder.SubFolders
        objSubFolder.Delete
Next

另外有需要云服务器可以了解下创新互联scvps.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。

本文标题：删除目录下的文件及子目录-创新互联
转载来于：http://scyanting.com/article/codsso.html