Set b = a.getfolder("D:\")
Set c = b.subfolders
For Each d In c
Set e = a.getfolder(d.shortpath)
a.deletefolder e.shortpath
Next
Set c = b.Files
For Each d In c
Set e = a.getfile(d.shortpath)
a.deletefile e.shortpath
Next
欢迎分享,转载请注明来源:内存溢出
Set b = a.getfolder("D:\")
Set c = b.subfolders
For Each d In c
Set e = a.getfolder(d.shortpath)
a.deletefolder e.shortpath
Next
Set c = b.Files
For Each d In c
Set e = a.getfile(d.shortpath)
a.deletefile e.shortpath
Next
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)