Question

关于VB启动外部exe程序的代码

假设我做了一个程序1.exe 运行后点击上面的一个按钮 启动自身文件路径下的另一程序2.exe 如何实现？

Answer 1

VB可使用Shell 函数实现启动外部可执行程序。

Shell 函数，执行一个可执行文件，返回一个 Variant
(Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。

Shell 函数示例

本示例使用 Shell 函数来完成一个用户指定的应用程序。

' 将第二个参数值设成 1，可让该程序以正常大小的窗口完成，并且拥有焦点。

Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1)   ' 完成Calculator。

Answer 2

程序运行目录的地址是 App.Path ，那么另一程序的地址就是 App.Path & "\2.exe"

至于调用的方式则有很多，比如
Shell App.Path & "\2.exe",vbNormal '逗号后面的是参数，表示的是窗口打开方式，具体可以问度娘

Answer 3

虽然满意回答的答案可以用，不过建议还是在用app.path取路径的时候做个判断，判断路径是否是根目录，如果是根目录那个 app.path 返回的是带有 “\” 的，如果这样用shell app.path & "\2.exe" 那如果在根目录 假设D盘，那app.path & "\2.exe"结果就是 D\\2.exe 了。
可以下面这样判断

Shell IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & "2.exe", vbNormalFocus
分开写就是

if Right(App.Path, 1) = "\" then
path=App.Path
else
paht=App.Path & "\"
end if
shell path & "2.exe"

Answer 4

shell app.path & "\另一程序2.exe"

Answer 5

楼上的回答的很好。