以下是如何将整个文本文件读入字符串 – 从
VB6 manual开始.
Function FileToString(strFilename As String) As String iFile = FreeFile Open strFilename For Input As #iFile FileToString = StrConv(InputB(LOF(iFile),iFile),vbUnicode) Close #iFile End Function