20 kwi 2008

Zapis stringa do pliku

Dim fso, stream, str, re, name
name = "page2.html"
Const ForWriting = 2, TristateUseDefault = -2
Set fso = CreateObject("Scripting.FileSystemObject")
 str = Replace(str, "–", "-")

'Set stream = fso.OpenTextFile("page_lot2.html",ForWriting, True ,TristateUseDefault)
stream.Write(str)
stream.Close
Set stream = Nothing