excel - 如何使用 VBA 超越 Windows 对话框

Question

下面的代码能够从 Zip 文件中删除文件夹。

Sub del_fol_from_Zip()

CreateObject("Shell.Application").Namespace("C:\Users\mohit.bansal\Desktop\Test\test\first.zip\first\second").Self.Verbs.Item(4).DoIt


End Sub

• 但问题是 Windows 删除确认，它出现在执行该行之后。

与示例 Zip 链接

我曾尝试使用Application.DisplayAlerts，但仅涵盖 Excel 应用程序创建的警报。所有的谷歌结果都与 Excel 警报有关，并且没有关于 Windows 警报的信息。

我找到了这个链接，但它是针对 Powershell 的。Link谈论通过$confirm或Force超越警告。

主要问题

我们可以在上面的行中传递任何参数或使用其他方式来超越错误Shell吗？

标签： excelvba

Answer 1

只需使用RmDir，它不会导致弹出窗口警报：

Sub DeleteTest()
    RmDir "path to the catalog"
End Sub