为什么没有关于错误 80070002 的说明？

Question

通过一些 Visual Basic 脚本，我不小心尝试启动一个不存在的程序：

Dim WshShell
Set WshShell = CreateObject("Wscript.Shell")
On Error Resume Next
WshShell.Run "incorrect"
WScript.Echo "Error:"  & vbTab & Err.Description & vbCrLf & _
             "Code:"   & vbTab & Hex(Err.Number)

这给了：

错误： 代码：80070002

所以没有描述。

当我禁用错误检查（注释掉On Error Resume Next）时，我确实得到一个描述：

-------------------------- Windows 脚本宿主 -------------------------- 脚本：D:\Folder\MyScript.vbs 线路：3 字符：1 错误：系统找不到指定的文件。 代码：80070002 来源：（空） -------------------------- 好的 --------------------------

这种行为差异是错误吗？还是我错过了什么？我在任何地方都找不到此文档。

Answer 1

我自己做了一些测试，它似乎只发生在WshShell.Run() 上。 例如尝试以下代码，它的工作方式相同，但请注意输出。

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
On Error Resume Next
'This line will fail because there is no Type of 88.
WshShell.LogEvent 88, "incorrect"
WScript.Echo "Error:"  & vbTab & Err.Description & vbCrLf & _
             "Code:"   & vbTab & Hex(Err.Number)

输出（带有On Error Resume Next）：

错误：无效的过程调用或参数 代码：5

输出（没有On Error Resume Next）：

错误：无效的过程调用或参数 代码：5

我的猜测是WshShell.Run() 仅在使用On Error Resume Next 时读取StdOut 而不是StdErr，这是WshShell.Run() 独有的，因为它正在尝试创建一个新进程。

您可以通过使用WshShell.Exec() 进行测试来进一步了解这两个输出流。

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
On Error Resume Next
Set WshExec = WshShell.Exec("incorrect")
WScript.Echo "Error:"  & vbTab & Err.Description & vbCrLf & _
             "Code:"   & vbTab & Hex(Err.Number)

奇怪地检查了WshExec.StdOut 和WshExec.StdErr，两者都不包含错误输出，但是当使用On Error Resume Next 时，该方法的行为与预期相同。

所以无论如何都不是结论性的。

但正如accompanying article 所说的那样；

请记住，没有神秘色彩的脚本会枯燥乏味

---

有用的链接

• Doctor Scripto's Script Shop: To Err Is VBScript – Part 1