VB打开UTF-8的文本文件乱码

Question

如题··
然后我把文本用TXT打开另存为ANSI格式的，用VB打开正常，但是我文件比较多，不可能一一另存，想请高手帮个忙
如何使UTF-8文件打正常显示

Answer 1

用PilotEdit可以一次转换多个文件, www.pilotedit.com

Answer 2

http://www.pilotedit.com

Answer 3

已经找到解决方法··http://zhidao.baidu.com/question/123224632.html?fr=im2。 
还有就是楼上的··我看不懂··

Answer 4

Function LoadUTF8(ByVal FileName As String) As String
    Dim oStream     As ADODB.Stream
    
    Set oStream = New ADODB.Stream
    oStream.Open
    oStream.Charset = "UTF-8"
    oStream.LoadFromFile FileName
    
    LoadUTF8 = oStream.ReadText()
    
    oStream.Close
End Function