Question

VB用shell同路径下打开程序再打开文件的命令怎么写

我想用程序A.exe打开B.MP4，A是个播放视频的软件
我知道Shell打开指定路径的是这么写：
Dim N
N=Shell ("C:***********\A.exe C:********\B.MP4", vbNF）
但是我生成工程后，用vs打包，我不能在同学的电脑上弄指定路径吧
所以我想用app.path
我是这么写的：
Shell(App.Path & "\A.exe \B.MP4", vbNormalFocus)
但是视频软件打开了，并没有播放B视频
究竟怎么写才对
用App.Path & "\A.exe C:********\B.MP4", vbNF来写就可以，但是如果B怎么才能用app.path才不出现语法错误呢？

Answer 1

Shell "A.exe B.MP4"

直接这样用Shell会更简单，因为如果没有指定路径，Windows会首先在当前路径（也就是App.Path）下查找指定的文件。

追问

也是文件未找到，我用的是VB6.0精简版

追答

那就有可能是B.MP4不存在，或者是A.exe有问题，要么就是看错了B文件的扩展名。

追问

我也觉得挺奇怪的，当我用完全指定路径写命令的时候，就没有问题，用app.path，A能正常打开，把B换成指定路径时就拼命说我语法错误

追答

那就试试这个：

Private Function AddAppPath(StrToAdd As String)As String
    '添加App.Path到StrToAdd之前
    AddAppPath = App.Path & _
        IIf(Right(App.Path, 1) = "\", "", "\") & StrToAdd
End Sub

调用的时候：

N = Shell(AddAppPath("A.exe") & AddAppPath("B.MP4"))

追问

那private是把原来默认的替换掉，还是在下面再写一个?另外就是，第2步不太理解，是添加到哪个StrToAdd之前，还是所有StrToAdd；第4步是IIF开头？还是IF?

追答

第2行只是为了说明函数的功能，你可能想多了。第4行是IIF开头的。

Answer 2

App.Path & "\A.exe " & App.Path & "\B.MP4"

追问

奇怪，他说找不到文件了

追答

msgbox App.Path & "\A.exe " & App.Path & "\B.MP4"
看看路径是否正确

追问

我不会用vb的，不知道什么是msgbox，而且怎么用

追答

N=Shell ("C:***********\A.exe C:********\B.MP4", vbNF）
注释掉 换成
msgbox App.Path & "\A.exe " & App.Path & "\B.MP4"
这样在运行时 就能弹出对话框 显示了