请教：程序运行出错，提示“错误的文件名或代码”，请各位大侠指点

文本文件，若干行，根据每行固定位置的字符分类，当字符不同时在指定目录下创建一个文本文件，字符相同打开指定目录添加。程序如下：
Private Sub Cmdzhuaqu_Click()
Dim a$, m%, n%, b$, c$, d$, a1$, a2$

'检测txt文件内有多少条记录
  Open Txtlujing.Text For Input As #1
  m = 0
  While Not EOF(1)
  Input #1, a
  m = m + 1
  Wend
  Close #1

  b = "12345"
  Open Txtlujing.Text For Input As #1
  Dim strPath$, strFileName$, strTmp$
' pathname = "C:\Documents and Settings\Administrator\桌面\2001-2010\"
  strPath = App.Path & "\" '当前目录
  strTmp = b & "01.Txt" '文件名称
  strFileName = strPath & strTmp '指定路径名称
   
  For n = 1 To m
  Line Input #1, a
  Call trim(a$, a1$)
  If a1 = b Then
  Open strFileName For Append As #i
  Print #1, a ' "这里写入文件内容"
  b = a1
  GoTo 10
  Else
  Open strFileName For Output As #1  
  Print #1, a
  b = a1
  GoTo 10
  End If
   
10 Next n
  Close #1

End Sub

Public Sub trim(a$, a1$)
  a1 = LTrim(Mid(a, 1, 5))
End Sub

错误提示了，你的文件名错误啊

我是初学，请问，文件名哪儿错了？

错误提示行就在第二个open 语句行，是前面的文件名定义错误，还是引用错误？请赐教

Open "c:\Txtlujing.Text" For Input As #1

看错了……汗……