IBM Lotus Symphony


Функция GetAttr [встроенная]

Возвращает набор битовых флагов, обозначающих тип файла или имя тома/каталога.

Синтаксис:

GetAttr (текст As String)

Возвращаемое значение:

Integer

Параметры:

текст — произвольное строковое выражение, содержащее однозначное имя файла. Также поддерживается формат URL.

Эта функция возвращает атрибуты указанного файла в виде набора битовых флагов:

Коды ошибок

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

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

Значение

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


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