Архив форумов ЦИТФорума

[Sun_Fire]

Кто нибудь знает, как в VBScript построчно считывать файл??? Он все время какие-то объекты требует...

[hydrolizer]

Option Explicit
Dim fso,ts
Set fso=CreateObject("Scripting.FileSystemObject")
set ts=fso.OpenTextFile("file_name")
while not ts.AtEndOfStream
msgbox ts.ReadLine
loop
ts.Close
msgbox "Done"