Доступ к локальному диску - часть 3

Set objFs = CreateObject ("Scripting.FileSystemObject")

создает экземпляр объекта Файловая система. С этого мгновения вступают в действие меры безопасности. На экране компьютера, читающего вашу Web-страницу, возникает сообщение (Рис. 23.6), которое предупреждает пользователя, что программы на этой страничке могут быть опасными и не рекомендует разрешать их выполнение.

Рис. 23.6

У пользователя еще есть возможность нажать на No. Мой совет прост: Если эта страничка не принадлежит вашему самому надежному другу – жмите No.

Теперь рассмотрим строку

If   objFs.FileExists (sAdres)   Then

Здесь используется метод FileExists объекта objFs, который определяет, существует ли файл по указанному адресу sAdres. Смысл строки такой: Если файл   c:\INFORMAT.TXT   существует, то …

Строка

Set objFile = objFs.OpenTextFile(sAdres, 1)

открывает объект – текстовый файл – для чтения (потому что 1). Строка

intSchetchik = objFile.ReadLine

считывает из него строку и присваивает счетчику. Следующая строка увеличивает счетчик на 1, а строка

Document.Write    "Вы здесь были "   &   intSchetchik   &   " раз"

записывает на страничку указанный текст.

Из дальнейших строк поясню следующие. Строка

Set objFile = objFs.CreateTextFile (sAdres)

создает на диске файл по указанному адресу. Строка

objFile.Close

закрывает файл, независимо от того, какая ветвь оператора  If  выполнялась – Then или  Else. Строка

Set objFile = objFs.OpenTextFile(sAdres, 2)

открывает файл для записи (потому что 2). Строка

objFile.WriteLine (intSchetchik)

записывает в файл значение счетчика. Строка

Set ObjFs = Nothing

освобождает память компьютера от объекта Файловая система.