vba 删除文件夹下所有

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

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
你再试。

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