objShell.Run 更改为 Windows 10 v1909

Question

自从我上周升级到较新的版本 1909 后，简单的 Outlook 宏不再起作用。

我想通过按钮执行批处理和 VBS 脚本。

我的代码是例如：

Sub busy()
strPath = "C:\Users\xxxxxxx\Documents\Addons\busy.vbs"
Set objShell = CreateObject("WScript.Shell")
objShell.Run strPath, 1, False
End Sub

我收到更新后的错误消息：

Runtime error '-2147024894 (80070002)':  
The method "Run" for the object "IWshShell3" failed.

我需要更改什么才能使其再次运行？之前的调用运行很精彩。手动打开脚本，例如通过 Windows Explorer，没问题。

Answer 1

如果路径中有空格，请确保您的路径用引号引起来：

strPath = """C:\Users\xxx xx xx\Documents\Addons\busy.vbs"""

objShell.Run changes with Windows 10 v1909