读取txt文件内容的方法

'   Display   the   contents   of   c:\config.sys   a   line   at   a   time. 

Dim   text   As   String,   fileNum   As   Integer 

fileNum%   =   Freefile() 

Open   "e:\bai.txt "   For   Input   As   fileNum% 

Do   While   Not   Eof(fileNum%) 

Line   Input   #fileNum%,   text$   '逐行输出，可以不要$号

Msgbox   text$                     '   Prints   one   line   of   config.sys 

Loop 

Close   fileNum%