IBM Lotus Symphony


Оператор SetAttr [встроенный]

Задает атрибуты указанного файла.

Синтаксис:

SetAttr имя-файла As String, атрибут As Integer

Параметры:

имя-файла — имя файла, у которого изменяется атрибут (включая путь). Если путь не указан, оператор SetAttr ищет файл в текущем каталоге. Также поддерживается формат URL.

атрибут — набор битовых флагов, которые должны быть установлены или сброшены:

Значение

0 — обычный файл;

1 — файл, доступный только для чтения;

32 — файл был изменен с момента создания последней резервной копии (бит архива).

Для задания сразу нескольких атрибутов следует использовать оператор OR.

Коды ошибок

5 Недопустимый вызов процедуры

53 Файл не найден

70 Доступ запрещен

Пример:

Sub ExampleSetGetAttr

On Error Goto ErrorHandler REM Назначение обработчика ошибок

If Dir("C:\test",16)="" Then MkDir "C:\test"

If Dir("C:\test\autoexec.sav")="" THEN Filecopy "c:\autoexec.bat", "c:\test\autoexec.sav"

SetAttr "c:\test\autoexec.sav" ,0

Filecopy "c:\autoexec.bat", "c:\test\autoexec.sav"

SetAttr "c:\test\autoexec.sav" ,1

print GetAttr( "c:\test\autoexec.sav" )

end

ErrorHandler:

Print Error

end

end sub


Комментарии по продукту | Дополнительная документация | Товарные знаки