保存text 为UTF-8
工程-------引用--------- MicroSoft ActiveX Data Objects 2.5 Library：
'--------------------------保存为UTF--8---------------------------------------------- Dim adostream As New ADODB.Stream
With adostream
.Type = adTypeText
.Mode = adModeReadWrite
.Charset = "utf-8"
.Open
.Position = 0
.WriteText Text13.Text '想保存的文本都在Text1文本框里面
.SaveToFile App.Path & "/cleowalk/index.php", adSaveCreateOverWrite '保存到D:\test.txt
.Close
End With
Set adostream = Nothing
'---------------------------保存为UTF--8---------------------------------------------