vba 删除文件夹下所有

Question

Excel VBA中实现删除D:\Test\temp目录下的所有文件夹和文档
请给出具体代码

Answer 1

Sub Test()
    Dim fs As Object
    Set fs = CreateObject("scripting.filesystemobject")
    fs.deletefile "D:\Test\temp\*.*"
    fs.deleteFolder "D:\Test\temp\*.*"
End Sub

Answer 2

Sub mydel()
Shell "cmd.exe /c rd/s/q d:\test\temp\"
End Sub追问

只删除D:\Test\temp目录下的所有，temp文件夹要保留

追答

Sub mydel()
Shell "cmd.exe /c rd/s/q d:\test\temp\"
Shell "cmd.exe/c md d:\test\temp"
End Sub

追问

Shell "cmd.exe/c md d:\test\temp" ---> 运行时错误 '53' 文件未找到

追答

不好意思，少了一个空格
Sub mydel()
Shell "cmd.exe /c rd/s/q d:\test\temp\"
Shell "cmd.exe /c md d:\test\temp"
End Sub
你再试。

本回答被提问者和网友采纳