FileSystemObject读文件的问题,急啊

[wangwenbin712]

我想用FSO组件读取TXT文件中的数据到一个二维数组里,并显示在文本框中
可是调不出来啊,大家帮我看看呗,万分感谢
Public fso As New FileSystemObject
Public ts As TextStream

Private Sub Form1_load()
Dim song(0 To 3, 0 To 3) As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(App.Path + "\个人专辑.txt", ForAppending)
Dim i As Integer
j = 0
Do While Not ts.AtEndOfStream
j = j + 1
For i = 0 To 3
song(j, i) = ts.ReadLine
Next i
Loop
ts.Close
Dim n As Integer
n = 1
Public Sub displaydata(n)
Dim i As Integer
For i = 0 To 3
Form1.Text1(i).Text = song(n, i)
Next
End Sub

[蒋晟]

应该有错误消息的吧

[wangwenbin712]

已解决,谢谢各位