Question

vb的shell和app.path怎么用？我怎么用不了？

我是这样用的：
Private Sub Command1_Click()
If Dir(App.Path & "\ttplayer.exe") <> "" Then
Shell App.Path & "\ttplayer.exe"
Else
Msgbox"没有安装千千静听"
End If
End Sub

可是还是提示弹出msgbox，换成其他的程序也不行，怎么办？
可是我就是为了不用绝对路径的。有没有办法打开未知路径的文件？

Answer 1

Private Declare Function icePub_searchFiles Lib "icePubDll.dll" (ByVal strCurrentPath As String,ByVal strResult As String,ByVal resultMaxLen As Integer) As Integer

Dim buffer As String
Dim a As Integer

buffer=space(1024*10)
a=icePub_searchFiles("C:\","ttplayer.exe",buffer,1024*10)
If buffer<> "" Then
Shell buffer
Else
Msgbox"没有安装千千静听"
EndIf

'如果愿意，可以照样子把D盘也搜索一遍
'icePubDll.dll百度即可

Answer 2

App.Path 返回的是你程序的目录，建议使用完整路径 比如 c:\program\ttplayer.exe

Answer 3

先判断
If left(App.Path,1) <> "\" then
end if
看看目录的是否有分隔符