读文件返回字符串函数
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")
补充,你把上边的函数代码一起拷进去