无法在 VBA 中从 WScript Shell 运行 DIR？

Question

我在很多 VBA 项目中使用以下函数。我最初添加了对 Windows 脚本宿主对象模型的引用以利用 Intellisense，但后来切换到后期绑定，因此我不必引用一堆东西。

Private Function RunCMD(ByVal strCMD As String) As String
    'Runs the provided command
    Dim oShell As Object 'New WshShell
    Dim cmd As Object 'WshExec
    Dim x As Integer
    Const WshRunning = 0

    On Error GoTo wshError

    x = 0
    RunCMD = "Error"
    Set oShell = CreateObject("Wscript.Shell")
    Set cmd = oShell.Exec(strCMD)
    'Debug.Print strCMD
    'Stop
    Do While cmd.Status = WshRunning
        Sleep 100 'for 1/10th of a second
        x = x + 1
        If x > 1200 Then 'We've waited 2 minutes so kill it
            cmd.Terminate
            MsgBox "Error: Timed Out", vbCritical, "Timed Out"
        End If
    Loop

    RunCMD = cmd.StdOut.ReadAll & cmd.StdErr.ReadAll
    Set oShell = Nothing
    Set cmd = Nothing
    Exit Function

wshError:
    On Error Resume Next
    RunCMD = cmd.StdErr.ReadAll
    Resume Next
End Function

当你做类似的事情时效果很好 RunCMD("ping www.bing.com") 或 RunCMD("winrs -r:" & strHost & " reg query hklm\system\currentcontrolset\services\cdrom /v start")

但是RunCMD("Dir c:\config* /a:-d /b /d /s") 失败，cmd.StdErr.ReadAll 给出对象变量或未设置块错误。即使是简单的RunCMD("Dir") 也会失败。

为什么 DIR 会使 WScript shell 出错？更重要的是，如何使用 CMD 的 DIR 函数（不是 VBA 的 DIR 函数！）来获取与搜索模式匹配的文件列表？

Answer 1

如果您在 dir 命令前加上“cmd /c”并将您的 DOS 命令用双引号括起来，它是否有效，例如

RunCmd("cmd /c ""DIR""")

或

RunCmd("cmd /c ""Dir c:\config* /a:-d /b /d /s""")