vb6 读取全部 txt文档

'***************************************************************
'读文件返回字符串函数
Private Function ReadFile(filePath As String) As String
Dim fileStr As String
Open filePath For Input As #1

Do While Not EOF(1)
Line Input #1, tem
fileStr = fileStr & tem & vbCrLf
Loop
Close #1
ReadFile = fileStr
End Function
'***************************************************************

使用方法:
dim x as string
x=ReadFile("C:\abc.txt")

补充,你把上边的函数代码一起拷进去

将2楼的函数放在调用的FORM里,

或者

放在模块里,并把Private改成Public

什麼啊 ！！！电子书吗？？？