Доступ к локальному диску - часть 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
освобождает память компьютера от объекта Файловая система.