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