Sub StreamWrite(path, st)
Dim stm
Set stm = CreateObject("Adodb.Stream")
stm.Type = 2
stm.Mode = 3
stm.Charset = "UTF-8"
stm.Open
stm.WriteText = st
stm.SaveToFile (path), 2 '1.不覆盖;2.覆盖
Set stm = Nothing
End Sub
Function StreamRead(path)
Dim stm
Set stm = CreateObject("Adodb.Stream")
stm.Type = 2
stm.Mode = 3
stm.Charset = "UTF-8"
stm.Open
stm.LoadFromFile (path)
StreamRead = stm.ReadText()
Set stm = Nothing
End Function
参考自:http://blog.csdn.net/icanlove/article/details/39394701