我根据网上买的教材编写了一个显示文件的程序，可总是提示文件未找到。
程序界面如图：
弹出错误提示如图：
以下是代码：
Option Explicit

Private Sub Command1_Click()
Dim strfilename As String
Dim nfilenum As Long
Dim strall As String
Dim strline As String
strfilename = App.Path & "hero.txt"
nfilenum = FreeFile()
Open strfilename For Input As nfilenum
Do While Not EOF(nfilenum)
Line Input #nfilenum, strline
strall = strall & strline & vbCrLf
Loop
Label1.Caption = Label1.Caption & strall

End Sub
请教一下，App.Path是哪个目录？我的hero.txt在这个程序的同一目录下，总是提示那个错误，求解决，哪里错了？

strfilename = App.Path & "\hero.txt"或strfilename = "hero.txt"
应该行

您好，感谢您的解答,按照您的方法，已经完全解决。如图： ，我就错在110.exe\hero.txt,少个\，万分感谢。

[ 本帖最后由 VB丶小宇 于 2013-8-1 09:12 编辑 ]