请教vb读取txt文档原理 谢谢

dim s as string,R as string
open "C:\001.txt" for input as #1
do while not eof(1)
line input #1,R
s=s+R+chr(13)+chr(10)
loop
text1.text=R

你可以用fso来实现。现在可以找到相应的方法例如你在C盘根目录下有个文件001.txt。你可以这样来来读取它的内容
dim fso,txt
set fso=createobject("scripting.filesystemobject")
set txt=fso.opentextfile("c:\001.txt",1,true)
do while not txt.atendofstream
content=content & txt.readline
loop

这样子content就可以一行一行读取001.txt的内容了