VB6编程中文件字符编码的简单转换,UTT-8和ANSI以及其它字符集互转

最近用VB6给公司写个小程序，碰到ANSI与UTF-8互相转换的问题，到网上搜的都是比较复杂的算法。

偶然看到有人使用Adodb.Stream来解决问题，研究了一下确实可行，而且代码简单。分享一下。

'字符集编码转换函数，调用是带三个参数，filename文件路径，charsetIn源文件字符编码，charsetOut想要转换的字符编码
Public Sub CharConvert(ByVal fileName As String, ByVal charsetIn As String, ByVal charsetOut As String)
    Dim stIn As Stream
    Dim stOut As Stream
    Dim s As String
    Set stIn = New ADODB.Stream
    Set stOut = New ADODB.Stream
    stIn.Open
    stOut.Open
    
    '设定源文件的字符编码
    stIn.Charset = charsetIn
    '设定输出文件的字符编码
    stOut.Charset = charsetOut
    
    '读取源文件
    stIn.LoadFromFile (fileName)
    s = stIn.ReadText
    
    '将源文件流复制给输出文件流
    stIn.CopyTo stOut
    
    '输出文件并覆盖
    stOut.WriteText s
    stOut.SaveToFile fileName, adSaveCreateOverWrite
    
    stIn.Close
    stOut.Close
    Set stIn = Nothing
    Set stOut = Nothing
End Sub