'获取文本文件内容
Public Function getFileContent(myFilePathName As String)
Debug.Print myFilePathName
    hFile = FreeFile
    Open myFilePathName For Input As #hFile
        getFileContent = StrConv(InputB$(LOF(hFile), #hFile), vbUnicode)
'       getFileContent = InputB$(LOF(hFile), #hFile)
    Close #hFile
End Function
1。以上函数获取utf-8保存的文件出现乱码,而用记事本把该文件另存为ansi格式后,再用VB打开则没有问题。
2。打开770K的文本文件出问题