如何通过脚本实现拖拽文件启动.exe程序？求VBScript方案

当然可以实现！手动拖拽文件到.exe的本质，就是系统把文件的完整路径作为命令行参数传递给程序启动，VBScript完全能复刻这个逻辑，你的思路方向是对的，只是细节上需要调整来适配不同场景。

先理清楚核心逻辑 #

当你拖拽文件到exe上时，系统会自动把文件路径（带空格的路径会被双引号包裹）作为第一个命令行参数传给exe。所以VBScript的核心就是：拿到目标文件路径，把它作为参数传给xyz.exe启动。

场景1：让VBScript本身支持拖拽（最接近手动操作的体验） #

如果你想做一个VBS脚本，让用户直接拖拽文件到这个脚本上，脚本自动启动xyz.exe并加载该文件，那需要读取VBS的命令行参数（拖拽文件时系统会把路径传给VBS）。代码如下：

Set objShell = CreateObject("WScript.Shell")

' 检查是否有拖拽的文件传入
If WScript.Arguments.Count > 0 Then
    ' 获取第一个拖拽的文件路径（支持多文件拖拽，可循环处理所有参数）
    targetFilePath = WScript.Arguments(0)
    ' 用双引号包裹路径，避免空格导致参数识别错误
    objShell.ShellExecute "xyz.exe", Chr(34) & targetFilePath & Chr(34), "", "open", 1
Else
    ' 没有拖拽文件时提示用户
    MsgBox "请拖拽文件到这个脚本上再运行！"
End If

• 重点：Chr(34)代表双引号，必须用它包裹路径——如果文件路径包含空格，exe会把空格后的内容当成新参数，这和手动拖拽时系统的处理逻辑完全一致。
• 要是需要支持多文件拖拽，把WScript.Arguments(0)改成循环遍历所有参数，把每个路径都用双引号包裹后用空格拼接，再传给exe即可。

场景2：固定启动某个文件到exe #

如果你只是想让VBS每次运行都打开xyz.exe并加载指定的xyz.file，那只需要确保路径传递正确就行：

Set objShell = CreateObject("WScript.Shell")

' 如果exe和文件在脚本同目录，可直接用文件名；否则用完整路径
exePath = "xyz.exe"
filePath = "xyz.file"

' 同样注意用双引号包裹带空格的路径
objShell.ShellExecute Chr(34) & exePath & Chr(34), Chr(34) & filePath & Chr(34), "", "open", 1

比如xyz.exe在C:\Apps目录，xyz.file在D:\Docs，就把路径改成完整路径：

exePath = "C:\Apps\xyz.exe"
filePath = "D:\Docs\xyz.file"

测试小技巧 #

把脚本保存为.vbs文件后，直接拖拽目标文件到这个脚本图标上，就能看到和拖拽到xyz.exe完全一致的效果啦。

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