Enable JavaScript in the browser to display LibreOfficeDev Help pages.

Функция GetAttr

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

Синтаксис


GetAttr (Текст As String)

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

Integer

Параметры:

Текст. Любое строковое выражение, которое содержит однозначное указание файла. Здесь можно также использовать URL-нотацию.

Эта функция определяет атрибуты для указанного файла и возвращает битовую комбинацию, по которой можно определить следующие атрибуты:

Коды ошибок:

5 Неправильный вызов процедуры

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

Значение

Именованная константа

Значение

Определение

ATTR_NORMAL

0

Обычные файлы.

ATTR_READONLY

1

Файлы только для чтения.

ATTR_HIDDEN

2

Скрытый файл

ATTR_SYSTEM

4

Системный файл

ATTR_VOLUME

8

Returns the name of the volume

ATTR_DIRECTORY

16

Returns the name of the directory only.

ATTR_ARCHIVE

32

File was changed since last backup (Archive bit).


Если требуется знать, задан ли бит байта атрибута, используйте следующий метод запроса:

Пример:


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