vb程序打开超大txt文件（10M）

关于点击按钮，文本框中显示文字

Command1.Click
Text1.Text = “”
Open XXXXXXXXXXXXXX/XXXXX.txt For Input As #1
Do While Not EOF(1)
Line Input #1, st
Text1.Text = Text1.Text + st + vbCrLf
Loop
Close #1
End Sub

在打开较大文件时，速度很慢，而且经常没有响应
还有，怎样在打开的过程中显示部分文字（现在只有完全打开以后才能显示）
怎样处理？？

的问题

一行一行的读是慢,我刚也去试了下,最后用FileSystemObject对象速度要快些(我拿4M的试了下,速度还算可以,你试试更大点的)
Dim Fso As Object
Dim Objtxt As Object
Set Fso = CreateObject(” lesystemobject”)
Set Objtxt = Fso.opentextfile(“F:\test.txt”, 1, -2)
Text1 = adall
Objtxt.Close
你代码的:
File1.Path & ” / ” & File1.FileName
改成:
Dir1.Path + “/” + File1.FileName
另外忘说了,之前要引用一下,”工程”-“引用”,然后找到Microsoft Scripting Runtime,钩上应用.