'此代码为彻底删除文件夹,不可恢复
Private Sub Cmd按钮_Click()
    Dim fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    '路径为D盘的某文件夹,名称自己定义即可
    fs.DeleteFolder "D:\文件夹名称"
    Set fs = Nothing
End Sub