我用Shell("NOTEPAD.EXE app.path\使用说明.txt ", 1)打开写字板，但不能打开我的文件（使用说明.txt），提示找不到路径，我的文件放在我

Question

我用Shell("NOTEPAD.EXE app.path\使用说明.txt ", 1)打开写字板，但不能打开我的文件（使用说明.txt），提示找不到路径，还要“手动”去找，我的文件放在我的程序文件夹中。谢谢。

Answer 1

Private Sub Command3_Click()
 Shell App.Path & "\使用说明.txt ", 1
End Sub

Answer 2

Private Sub Command1_Click()
If Right(App.Path, 1) <> "\" Then
filepath = App.Path & "\"
Else
filepath = App.Path
End If
Shell "NOTEPAD.EXE " + filepath + "使用说明.txt", 1
End Sub

Answer 3

app.path在这儿就是字符串,起不到应起的的作用,所以找不到.

Answer 4

晕哦，不舍得引号啊？
Shell("NOTEPAD.EXE " & App.Path & "\使用说明.txt ", 1)
如果你的文件不在驱动器根目录下，这样就能找到了建议用lsftest() 的代码

Answer 5

shell(app.path & "\使用说明",1)

Answer 6

Shell App.Path & "\使用说明.txt ", 1

Answer 7

Shell App.Path & "\使用说明.txt ", 1