[ASP][Object][Stream] Create txt File

元件#使用[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