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