关于保存 utf-8 的问题

Question

我用 ultraedit 32 打开一个文件,看到下面的编码写的是 u8-dos,我想用vb 生成一个这样的文件,
有没有哪位大侠给出代码
因为我看会以前的文章说用 
Open file_name For binary As #1
然后写转换内容的函数就可以了我想知道详细的代码
谢谢~~

Answer 1

try to use ADO stream ,search the web

Answer 2

Private Sub Command1_Click()
    ToUtf8 "我爱北京天安门", "c:\ab.txt"
End SubPrivate Sub ToUtf8(ByVal s As String, ByVal FilePath As String)
    Dim stmStr
    Set stmStr = CreateObject("ADODB.Stream")
    stmStr.Open
    stmStr.Charset = "utf-8"
    stmStr.WriteText s
    stmStr.SaveToFile FilePath
    stmStr.Close
    Set stmStr = Nothing
End Sub