Private Sub Command1_Click()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject") '
fso.DeleteFolder "F:\ABCDE", True
fso.creatfolder "F:\ABCD"
End Sub
这样才能达到楼主所说的删除某一文件夹下的所有文件夹 而用shell语句的话 不应该用del 而是 rd或者rmdir命令 后面也加/S删除目录后记得再用 md 建立该文件夹
直接使用SHELL调用DEL /S (/F)和 RD /S命令
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024