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