VB6.0读写utf-8文本文件示例

Dim adostream As New ADODB.Stream
With adostream
    .Type = adTypeText
    .Mode = adModeReadWrite
    .Charset = "utf-8"
    .Open
    .Position = 0
    .WriteText "木子屋-http://www.mzwu.com/"
    .SaveToFile "D:\test.txt", adSaveCreateOverWrite
    .Close
End With
Set adostream = Nothing

Dim adostream As New ADODB.Stream
With adostream
    .Type = adTypeText
    .Mode = adModeReadWrite
    .Charset = "utf-8"
    .Open
    .LoadFromFile "D:\test.txt"
    MsgBox .ReadText
    .Close
End With
Set adostream = Nothing