打开不在同一目录中的文件

Question

我想用 MSG 框运行一个程序（与脚本不在同一目录中），这是代码（它不起作用，因为它需要程序像脚本一样在桌面上）

    puls = MsgBox("Want to open steam?", vbYesNo + vbQuestion)

    if puls = vbYes then
    CreateObject("WScript.Shell").Run "C:\Program Files(x86)\Steam\Steam.exe"
    CreateObject("WScript.Shell").Run "C:\Users\Dario Loi\AppData\Local\TeamSpeak 3 Client\ts3client_win64.exe"
    else
    MsgBox "Okay :(", vbInformation
    end if

现在，如您所见，我想在系统启动时执行此操作以运行我的游戏程序，但我无法将 Steam 放在桌面上，因为它会将其资产转储到那里，而且会一团糟，我也不能将脚本放在steam的目录中，对于TS3也是如此，我试图用它的路径替换文件的名称，但它也不起作用

编辑： 只是为了清楚起见，我的桌面上有一个 VBS 文件，连同它，在桌面上我有 2 个链接（不是原始的 EXE），到 steam 和 TS，（我想运行的程序） ，我想打开这两个程序而不把脚本和程序放在同一个文件夹中，所以

1. 通过使脚本引用链接和
2. 通过使脚本引用路径， 如果你有想法，请告诉我

Answer 1

如果你这样尝试呢？

puls = MsgBox("Want to open steam?", vbYesNo + vbQuestion)
Set ws = CreateObject("WScript.Shell")
if puls = vbYes then
    ws.Run DblQuote("C:\Program Files(x86)\Steam\Steam.exe")
    ws.Run DblQuote("C:\Users\Dario Loi\AppData\Local\TeamSpeak 3 Client\ts3client_win64.exe")
else
    MsgBox "Okay :(", vbInformation
end if
'*****************************************
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'*****************************************

Answer 2

在可执行文件的完整路径中添加 cd（更改目录）行，这会将 cmd 提示符带到该目录，然后执行运行命令。