如何在VBScript中通过变量路径与文件名运行RDP文件？

嘿，我来帮你搞定这个Run命令的问题！你的核心问题是字符串拼接时的引号和格式错误，导致系统只识别了路径文件夹，而没有把路径+文件名当成完整的目标文件。

先分析你之前的错误 #

你之前写的代码：

CreateObject("WScript.Shell").run " "&dir&" \"\" "&sNewFile&" "

这里的引号位置完全错了——多余的空格和错误转义的双引号，让Run命令误以为你要打开dir这个文件夹，后面的sNewFile被当成了无关参数，自然不会运行RDP文件。

正确的写法思路 #

要让Run命令正确识别完整的RDP文件路径，需要做到两点：

1. 确保路径变量dir和文件名sNewFile拼接成合法的完整文件路径（比如C:\Temp\NewFile.rdp）
2. 把完整路径用双引号括起来（防止路径/文件名里有空格时命令解析失败）

具体实现代码 #

方式1：用Chr(34)表示双引号（更直观）

Chr(34)是VBScript里双引号的ASCII码，用它来拼接不会搞混转义：

' 先处理路径，确保末尾有反斜杠（避免拼接出C:\TempNewFile.rdp这种错误路径）
If Right(dir, 1) <> "\" Then
    dir = dir & "\"
End If

' 构建完整文件路径
Dim fullFilePath
fullFilePath = dir & sNewFile

' 运行RDP文件，双引号包裹完整路径
CreateObject("WScript.Shell").Run Chr(34) & fullFilePath & Chr(34), 1, True

方式2：用双引号转义（VBScript里两个双引号代表一个实际双引号）

如果习惯直接写字符串，也可以这样：

' 同样先处理路径末尾的反斜杠
If Right(dir, 1) <> "\" Then
    dir = dir & "\"
End If

' 直接拼接带双引号的完整路径
CreateObject("WScript.Shell").Run """" & dir & sNewFile & """", 1, True

额外建议：用系统内置方法获取Temp路径 #

如果你是手动写Temp路径，不如用WScript.Shell的SpecialFolders方法自动获取，更可靠：

Dim objShell
Set objShell = CreateObject("WScript.Shell")
' 获取系统Temp文件夹
dir = objShell.SpecialFolders("Temp")

完整示例代码 #

把所有步骤整合起来的完整脚本：

Dim objShell, dir, sNewFile, fullFilePath

Set objShell = CreateObject("WScript.Shell")
' 获取系统Temp文件夹路径
dir = objShell.SpecialFolders("Temp")

' 确保路径末尾有反斜杠
If Right(dir, 1) <> "\" Then
    dir = dir & "\"
End If

' 你的文件名变量
sNewFile = "MyCustomRDP.rdp"
fullFilePath = dir & sNewFile

' 运行RDP文件，显示窗口并等待执行完成（最后一个True参数可选）
objShell.Run Chr(34) & fullFilePath & Chr(34), 1, True

Set objShell = Nothing

这样写之后，Run命令就能正确识别到你的RDP文件并运行它啦！

内容的提问来源于stack exchange，提问作者StickySolvey