Applies ToAccess для Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Примечание: Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений 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 равно нулю, если атрибут 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.

Нужна дополнительная помощь?

Нужны дополнительные параметры?

Изучите преимущества подписки, просмотрите учебные курсы, узнайте, как защитить свое устройство и т. д.

В сообществах можно задавать вопросы и отвечать на них, отправлять отзывы и консультироваться с экспертами разных профилей.