压在透明的玻璃上c-国产精品国产一级A片精品免费-国产精品视频网-成人黄网站18秘 免费看|www.tcsft.com

　　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