VB中表示“程序根目录里”的某个程序怎么写？

来源：百度知道 编辑：UC知道 时间：2024/06/04 15:39:10
VB中表示“程序根目录里”的某个程序怎么写？
问题补充：RetVal = Shell("？\XXX.EXE", 0) '
本程序与将要调用的程序在同一目录里，应该如何输入路径
本人QQ133043840在线等待好心人指点迷精

RetVal = Shell(app.path & "\" & "？\XXX.EXE", 0)

如果在根目录中（一般你不会放那里吧）
RetVal = Shell(app.path & "？\XXX.EXE", 0)

本程序所在的目录使用app对象的path属性获得：
RetVal=Shell(app.path & "\XXX.EXE",0)
要注意的是app.path的返回值，如果你的程序是在如C:\VB\ 里运行，app.path得到的是"C:\VB",如果你的程序是在盘的根目录下，如C:\，app.path得到的是"C:\",
所以你必须在程序里加个判断，例如：
If right(app.path,1)="\" Then
RetVal=Shell(app.path & "XXX.EXE",0)
Else
RetVal=Shell(app.path & "\XXX.EXE",0)
End If

回答完毕，呵呵