Question

vb中app.path

Private Sub Command1_Click()
If Dir("D:\课程设计\文件记录\1.txt") <> "" Then
Shell "explorer D:\课程设计\文件记录\1.txt", vbNormalFocus
Else
MsgBox "无法找到该文件", 48, "打开失败"
End If
End Sub
这就怎么改成app.path的形式？

Answer 1

如果1.txt跟你的VB文件在同一目录下

Private Sub Command1_Click()
If Dir(app.path & "\1.txt") <> "" Then
Shell "explorer app.path & "\1.txt", vbNormalFocus
Else
MsgBox "无法找到该文件", 48, "打开失败"
End If
End Sub

追问

显示缺少结束语句
Shell "explorer app.path & "\1.txt", vbNormalFocus 这就是红色的

txt是蓝底的
怎么回事

追答

Shell "explorer " & app.path & "\1.txt", vbNormalFocus