以下是如何将整个文本文件读入字符串 – 从
VB6 manual开始.
原文链接:https://www.f2er.com/vb/255455.htmlFunction 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