Private Sub Command1_Click()

Dim strfilename As String
Dim nfilenum As Long
Dim strall As String
Dim strline As String

strfilename = App.Path & "11.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
我在窗体上画出了一个label和一个command
并且在C:\Program Files\Microsoft Visual Studio\VB98下建立了一个名为“11.txt”的文件
怎么运行时点击command按扭后出现"文件未找到"的错误
并且点调试按扭后“Open strfilename For Input As nfilenum”以黄色的提示 显示
请问大家错误在哪里啊？
谢谢了

'文件路径错误
dim path as string
if right(app.path,1)="\" then path=app.path else path=app.path + "\"
strfilename = path &  "11.txt"

strfilename = App.Path & "11.txt"
MsgBox strfilename   '这样显示看看结果路径..最基础的调试知识.

最后一层显示的是“vb9811.txt”而vb98和11.txt之间没有"\"号
请问这样该怎么弄呢？
总之同样谢谢

[[italic] 本帖最后由 一路同行 于 2007-12-19 14:20 编辑 [/italic]]

谢谢你的解答，这样做就可以了