20 Kwi 2008

Wczytanie pliku do zmiennej

'Constant  Value  Description
'TristateUseDefault  -2  Opens the file using the system default.
'TristateTrue  -1  Opens the file as Unicode.
'TristateFalse   0  Opens the file as ASCII.
Dim fso, stream, str, re, name
name = "moa.html"
Const ForReading = 1, ForWriting = 2, TristateTrue = -1, TristateFalse = 0, TristateUseDefault = -2
Set fso = CreateObject("Scripting.FileSystemObject")

Set stream = fso.OpenTextFile(name , ForReading, False, TristateFalse)
str = stream.ReadAll()
stream.Close
Set stream = Nothing