Примечание
Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений Microsoft Jet выполняется в режиме песочницы, который не позволяет рассчитывать потенциально небезопасные выражения. Для получения дополнительных сведений выполните в справке поиск по словам "режим песочницы".
Данная функция возвращает значение типа Integer, представляющее атрибуты файла, каталога или папки.
Синтаксис
GetAttr(pathname)
Обязательный аргумент pathname— это строковое выражение, указывающее имя файла. Путь может включать каталог или папку, а также диск.
Возвращаемые значения
Значение, возвращаемое функцией 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 равно нулю, если атрибут Архив не задан:
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.