7,763
社区成员
发帖
与我相关
我的任务
分享我用Shell("NOTEPAD.EXE app.path\使用说明.txt ", 1)打开写字板，但不能打开我的文件（使用说明.txt），提示找不到路径，我的文件放在我
我用Shell("NOTEPAD.EXE app.path\使用说明.txt ", 1)打开写字板，但不能打开我的文件（使用说明.txt），提示找不到路径，还要“手动”去找，我的文件放在我的程序文件夹中。谢谢。
...全文
请发表友善的回复…
发表回复
KevinLuNet 2004-04-30
- 打赏
- 举报
app.path在这儿就是字符串,起不到应起的的作用,所以找不到.
lsftest 2004-04-30
- 打赏
- 举报
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
If Right(App.Path, 1) <> "\" Then
filepath = App.Path & "\"
Else
filepath = App.Path
End If
Shell "NOTEPAD.EXE " + filepath + "使用说明.txt", 1
End Sub
northwolves 2004-04-30
- 打赏
- 举报
Private Sub Command3_Click()
Shell App.Path & "\使用说明.txt ", 1
End Sub
Shell App.Path & "\使用说明.txt ", 1
End Sub
hxy2003 2004-04-30
- 打赏
- 举报
Shell App.Path & "\使用说明.txt ", 1
hxy2003 2004-04-30
- 打赏
- 举报
Shell App.Path & "\使用说明.txt ", 1
shortppsy 2004-04-30
- 打赏
- 举报
shell(app.path & "\使用说明",1)
SaySorry 2004-04-30
- 打赏
- 举报
同意楼上
BlueBeer 2004-04-30
- 打赏
- 举报
晕哦，不舍得引号啊？
Shell("NOTEPAD.EXE " & App.Path & "\使用说明.txt ", 1)
如果你的文件不在驱动器根目录下，这样就能找到了
建议用lsftest() 的代码
Shell("NOTEPAD.EXE " & App.Path & "\使用说明.txt ", 1)
如果你的文件不在驱动器根目录下，这样就能找到了
建议用lsftest() 的代码
