InstantForum.NET v4.1.4Релибhttp://www.relib.com/forums/robot@relib.comMon, 07 Jul 2008 05:30:28 GMT20http://www.relib.com/forums/Topic894237-15-1.aspxТы совершенно неправильно код пишешь. Такое ощущение, что "от балды" пример накидал. Если бы ты для начала заглянул в документацию, то таких проблем бы не было.[url]http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/fdcdb56d-039b-4f67-aefd-b534b199e0cf.asp?frame=true[/url]Вот работающий пример построчного чтения файла.[code]Option ExplicitConst BOOT_INI_PATH = "c:\boot.ini"Const ForReading = 1Dim objFSO, objTxtStreamSet objFSO = CreateObject("Scripting.FileSystemObject")If objFSO.FileExists(BOOT_INI_PATH) Then Set objTxtStream = objFSO.OpenTextFile(BOOT_INI_PATH, ForReading, false, 0) Do While Not objTxtStream.AtEndOfStream WScript.Echo(objTxtStream.ReadLine()) Loop objTxtStream.CloseEnd If[/code]Fri, 31 Mar 2006 13:04:00 GMTbazilehttp://www.relib.com/forums/Topic894237-15-1.aspxДобрый день!пищу скрипрт на WHS(VBS), нужно преребрать все строки в файле и что-то не получается у меня определить когда файл кончается -([code]dim FSO, F, sSet fso = CreateObject("Scripting.FileSystemObject")Set F = fso.GetFile("c:\boot.ini")While not EOF(F) s=F.ReadLine()WendF.Close()[/code] ругается переменная не определена EOFFri, 31 Mar 2006 12:26:00 GMTjoper