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 = NothingEnd Sub