7,785
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
iProgram 2000-12-03
- 打赏
- 举报
用App.Path返回安装目录也就是执行地启动目录。但要注意如果在根目录下就会出错
如:Shell App.Path & "\1.exe"
如果是"C:\"下的程序，就成了 Shell "C:\\1.exe"，因此用以下办法解决：
Dim AppPath As String
AppPath=App.Path
If Right(AppPath,1)<>"\" Then AppPath=AppPath & "\"
再用Shell AppPath & "1.exe" 引用
如:Shell App.Path & "\1.exe"
如果是"C:\"下的程序，就成了 Shell "C:\\1.exe"，因此用以下办法解决：
Dim AppPath As String
AppPath=App.Path
If Right(AppPath,1)<>"\" Then AppPath=AppPath & "\"
再用Shell AppPath & "1.exe" 引用
