元件#使用[Stream],建立文字檔
Dim stm
Set stm = CreateObject("ADODB.Stream")
With stm
.Type = 2
.Open
.WriteText "Welcome!!!" & vbCrLf & "yippee.net" & vbCrLf
.Position = 0
.Charset = "Unicode"
.SaveToFile "C:\123.txt", 2
.Close
End With
Set stm = Nothing
Set stm = CreateObject("ADODB.Stream")
With stm
.Type = 2
.Open
.WriteText "Welcome!!!" & vbCrLf & "yippee.net" & vbCrLf
.Position = 0
.Charset = "Unicode"
.SaveToFile "C:\123.txt", 2
.Close
End With
Set stm = Nothing