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