2009-02-05
[ASP][Object][Stream] Create txt File
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