关于shell

Question

Private Sub File1_DblClick()
x = Shell(App.Path & File1.FileName, vbNormalFocus)End Sub这一段代码用来打开当前exe文件，但vb提示文件未找到`~
请问一下还差什么呢？

Answer 1

楼主的问题很早之前我也遇到过，厚厚！取出正确的APP调用路径:Dim strPath as stringstrPath=app.path
if right(strPath,1)<>"\" then strPath=strPath & "\"     '如果App.path不以"\"结尾则构造
x = Shell(strPath & File1.FileName, vbNormalFocus)
搞掂，就这么简单!