使用 VBA 在网络目录中运行批处理文件

Question

我有一个从 VBA 调用的 .bat 文件，当我使用本地文件夹作为路径时它正在工作（例如 C:\Users\cthoud01\Desktop\my scripts\scripts）。

但是，如果我使用来自网络目录的路径（例如 - H:\scripts），则会出现错误。我也尝试将路径替换为 """H:\scripts\""" 但继续得到同样的错误。我想听听我们的专家是否有任何方法可以使这项工作。

以下是我收到的错误消息：

我正在使用的 VBA 代码：

Sub test()
Dim wsh As Object
Set wsh = VBA.CreateObject("WScript.Shell")
Dim waitOnReturn As Boolean: waitOnReturn = True
Dim WindowStyle As Integer: WindowStyle = 1
Dim errorCode As Long


Dim pth As String
errorCode = wsh.Run("cmd.exe /k cd """ & "H:\scripts\" & """ && DeleteMatrix.bat", WindowStyle, waitOnReturn)

If errorCode <> 0 Then
    MsgBox "fail, please retry"
    End
End If

结束子

Answer 1

errorCode = wsh.Run("cmd.exe /k cd /d """ & "H:\scripts\" & """ && DeleteMatrix.bat", WindowStyle, waitOnReturn)

看看多余的/d。

在 MSDos 中，每个驱动器都有一个当前目录。

C:\>cd D:\dog
C:\>Copy *.* D:

会将文件复制到 d:\dog 目录中。这使打字更容易。没有鼠标或菜单。

Windows 只有当前目录的概念（并且是每个程序）。

因此，MSDos 批处理文件在 CMD 中运行不变，您必须使用/d 告诉 Windows 您不希望使用 CD 命令执行 MSDos 行为。

同样，CMD 模拟每个目录的默认驱动器。

这是它在进程的环境块中的样子

=C:=C:\Users\David Candy\Desktop\Editor\EditorSdi
=D:=d:\~MSSETUP.T