Private Sub Command4_Click() ，读取文件里的数据
Dim TestBegin_date As Integer
TestBegin_date = Year(Now)
        FileName = App.Path + "\ Test.txt"
       Open FileName For Output As #1
       Print #1, TestBegin_date
       Close #1
End Sub

Private Sub Command5_Click()‘建立文件
Dim str1 As String
Open App.Path + "Test.txt" For Input As #1
Do While Not EOF(1)
Input #1, str1
Text9.Text = str1
Loop

Close #1
可在读取文件里的数据时，VB总说找不到文件，可文件明明在那放着呢。
各位大侠，帮忙看看哪里出错了，谢谢