代码如下:
'VB 按指定编码格式写入文本文件,默认GB2312编码。
Private Sub SaveFile(FilePath As String, strText As String, Optional Charset As String = "GB2312")
Dim Obj As Object
Set Obj = CreateObject("ADODB.Stream")
With Obj
.Mode = 3
.Charset = Charset
.Open
.WriteText strText
.SaveToFile FilePath, 2
End With
Set Obj = Nothing
End Sub
Private Sub Form_Load()
Call SaveFile("c:\test.txt", "1234", "UTF-8")
End Sub
摘自:网络整理
相关文章参考:
※VB计算文本文件的行数
★VB部分相关文章推荐:★