关于用按钮打开程序的问题，在线等

Question

Private Sub Command3_Click()
Dim X
X = Shell("D:\我的文档\课程设计\6.5\Debug\du.exe")
End Sub这样用按钮打开du.exe，但是很不方便，一换电脑路径就不对了
请教一种方法不管在哪个电脑都能正确的打开du.exe
编写的程序本身和du.exe是在一个文件夹的
在线等

Answer 1

可能描述的不够准确吧，用程序a.exe里的一个按钮运行du.exe，代码怎么写能是个各种路径。a.exe和du.exe始终是在一个文件夹中的

Answer 2

X = Shell(App.Path & "\du.exe")