快速删除一个包含文件和子文件夹的文件夹

调用DOS命令rmdir 删除一个具有多级目录的目录

Private Sub KillFolder(MyFolderPath As String)
Shell "cmd.exe /c rmdir /s/q " & Chr(34) & MyFolderPath & Chr(34)
End Sub

Private Sub Command1_Click()

KillFolder "C:/Temp"

End Sub