Функция GetAttr

Примечание : Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений Microsoft Jet выполняется в режиме песочницы, который не позволяет рассчитывать потенциально небезопасные выражения. Для получения дополнительных сведений выполните в справке поиск по словам "режим песочницы".

Данная функция возвращает значение типа Integer, представляющее атрибуты файла, каталога или папки.

Синтаксис

GetAttr ( путь )

Обязательный аргумент путьаргумент — это строковое выражение, определяющее имя файла. Путь может содержать каталог или папку и диск.

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

Значение, возвращаемое функцией GetAttr, является суммой значений следующих атрибутов:

Константа

Значение

Описание

vbNormal

0

Обычный.

vbReadOnly

1

Только для чтения.

vbHidden

2

Скрытый.

VbSystem

4

Системный файл. Недоступно в macOS.

vbDirectory

16

Каталог или папка.

vbArchive

32

Файл изменился с момента создания последней резервной копии. Недоступно в macOS.

vbAlias

64

Указанное имя файла является псевдонимом. Доступно только в macOS.


Примечание : Приведенные здесь константы определены в Visual Basic для приложений, что позволяет заменять ими значения в любом месте программы.

Замечания

Примечание : В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите Справочник разработчика в раскрывающемся списке рядом с полем Поиск и введите одно или несколько слов в поле поиска.

Чтобы определить, для каких атрибутов заданы значения, используйте оператор And для побитового сравнения значения, возвращенного функцией GetAttr, и значения отдельного атрибута файла. Ненулевой результат означает, что атрибут для указанного файла задан. Например, значением следующего выражения с оператором And будет 0, если атрибут Archive не задан:

Result = GetAttr(FName) And vbArchive

Ненулевое значение возвращается, если атрибут Archive задан.

Пример

В данном примере функция GetAttr используется для определения атрибутов файла и каталога или папки. В macOS доступны только константы vbNormal, vbReadOnly, vbHidden и vbAlias.

Dim MyAttr
' Assume file TESTFILE has hidden attribute set.
MyAttr = GetAttr("TESTFILE") ' Returns 2.
' Returns nonzero if hidden attribute is
' set on TESTFILE.
Debug.Print MyAttr And vbHidden
' Assume file TESTFILE has hidden and
' read-only attributes set.
MyAttr = GetAttr("TESTFILE") ' Returns 3.
' Returns nonzero if hidden attribute is
' set on TESTFILE.
Debug.Print MyAttr And (vbHidden + vbReadOnly)
' Assume MYDIR is a directory or folder.
MyAttr = GetAttr("MYDIR") ' Returns 16.
Совершенствование навыков
Перейти к обучению
Первоочередный доступ к новым возможностям
Присоединиться к программе предварительной оценки Office

Были ли сведения полезными?

Спасибо за ваш отзыв!

Благодарим за отзыв! Возможно, будет полезно связать вас с одним из наших специалистов службы поддержки Office.

×