WShell.Run返回143

Question

我使用WShell.Run从VB脚本调用java代码。它返回一个代码143.这是什么意思？我在哪里可以得到运行方法可以返回的错误代码列表？

Answer 1

以下是对System Error Codes的引用。

  

ERROR_SAME_DRIVE 143（0x8F）系统无法加入或替换a   开车到或在同一个驱动器上的目录。

P.S。我认为接下来的笔记是不可能的，但以防万一......

请注意，对于大多数代码，Err对象具有“虚拟”Description（未知运行时错误）。如果您希望获得具有所有合理描述的过滤列表，您可以执行以下操作：

With CreateObject("InternetExplorer.Application")
    Const DUMMY = "Unknown runtime error"
    ReDim aryLines(15999)
    Dim cnt, i, w, h
    cnt = -1

    .Navigate "about:blank"
    .Document.Title = "Error Codes " & String(100, Chr(1))
    .ToolBar        = False
    .Resizable      = True
    .StatusBar      = False
    .Width          = 420
    .Height         = 380

    With .Document.ParentWindow.Screen
        w = .AvailWidth
        h = .AvailHeight
    End With
    .Left = (w - .Width ) \ 2
    .Top  = (h - .Height) \ 2

    Do While .Busy : WScript.Sleep 200 : Loop

    On Error Resume Next
    With Err
        For i = 1 To 15999
            .Raise i
            If .Description <> DUMMY Then
                cnt = cnt + 1
                aryLines(cnt) = AddZero(i) & .Description
            End If
            .Clear
        Next
    End With
    On Error GoTo 0

    ReDim Preserve aryLines(cnt)
    .Document.Body.InnerHTML = "<pre id=x>" & Join(aryLines, vbNewLine)
    .Document.Body.Style.overflow = "auto"
    .Document.All.X.Style.fontFamily = "Verdana, sans-serif"
    .Visible = True
End With

Function AddZero(nVar)
    AddZero = "<b>" & Right("00000" & nVar, 5) & "</b> "
End Function

Answer 2

您的java应用程序返回此代码。来自MSDN

以下VBScript代码执行相同的操作，除了它指定窗口类型，等待用户关闭记事本，并保存记事本关闭时返回的错误代码。

Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("notepad " & WScript.ScriptFullName, 1, true)

---