IBM Lotus Symphony
|
Задает атрибуты указанного файла.
SetAttr имя-файла As String, атрибут As Integer
имя-файла — имя файла, у которого изменяется атрибут (включая путь). Если путь не указан, оператор SetAttr ищет файл в текущем каталоге. Также поддерживается формат URL.
атрибут — набор битовых флагов, которые должны быть установлены или сброшены:
Значение
0 — обычный файл;
1 — файл, доступный только для чтения;
32 — файл был изменен с момента создания последней резервной копии (бит архива).
Для задания сразу нескольких атрибутов следует использовать оператор OR.
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