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总说找不到文件，可文件明明在那放着呢。
各位大侠，帮忙看看哪里出错了，谢谢

"\ Test.txt"是里面的空格引起的吗？

读的路径和建立的路径就不再一个目录下，当然找不到了

要么     FileName = App.Path + "\Test.txt"  改为     FileName = App.Path + "Test.txt"

要么     Open App.Path + "Test.txt" For Input As #1 改为 Open App.Path + "\Test.txt" For Input As #1
建议按后边的改，否则文件名就不是你存的Test.txt了


[ 本帖最后由 W11400661 于 2011-7-5 23:53 编辑 ]