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

Примітка.: Функція, метод, об’єкт або властивість, описана в цьому розділі, недоступна, якщо Microsoft Jet Expression Service працює в режимі ізольованого програмного середовища, що запобігає обчисленню потенційно небезпечних виразів. Щоб отримати докладні відомості про режим ізольованого програмного середовища, у вікні довідки шукайте за запитом "режим ізольованого програмного середовища".

Повертає ціле число , яке позначає атрибути файлу, каталогу або папки.

Синтаксис

GetAttr ( pathname )

Обов'язкове аргумент pathname – це рядковий вираз, що вказує ім'я файлу. Ім'я шляху може містити каталог або папку та диск.

Значення, що повертаються

Значення, повернуте getAttr , – це сума таких значень атрибутів:

Константа

Значення

Опис

vbNormal

0

Нормальний.

vbReadOnly

1

Лише для читання.

vbHidden

2

Приховані.

vbSystem

4

Системний файл. Цей параметр недоступний у системі Macintosh.

vbDirectory

16

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

vbArchive

32

Файл змінено з моменту останнього резервного копіювання. Цей параметр недоступний у системі Macintosh.

vbAlias

64

Вказане ім’я файлу – це псевдонім. Цей параметр доступний лише в системі Macintosh.

Примітка.: Ці константи визначено в модулі Visual Basic for Applications. Імена можна використовувати будь-де в коді замість фактичних значень.

Примітки

Примітка.: У прикладах нижче показано використання цієї функції в модулі Visual Basic for Applications (VBA). Щоб отримати докладні відомості про використання модуля VBA, клацніть пункт Довідник розробника в розкривному списку поряд із полем Пошук і введіть у поле пошуку принаймні один термін.

Щоб визначити, які атрибути встановлено, використайте оператор And , щоб виконати побітове порівняння значення, яке повертає функція GetAttr , і значення потрібного атрибута окремого файлу. Якщо результат не дорівнює нулю, цей атрибут установиться для іменованого файлу. Наприклад, повернуте значення такого виразу І дорівнює нулю, якщо атрибут Archive не задано:

Result = GetAttr(FName) And vbArchive

Якщо встановлено атрибут Archive, повертається ненульове значення.

Приклад

У цьому прикладі функцію GetAttr використано для визначення атрибутів файлу та каталогу або папки. У Macintosh доступні лише константи 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.

Потрібна додаткова довідка?

Потрібні додаткові параметри?

Ознайомтеся з перевагами передплати, перегляньте навчальні курси, дізнайтесь, як захистити свій пристрій тощо.

Спільноти допомагають ставити запитання й відповідати на них, надавати відгуки та дізнаватися думки висококваліфікованих експертів.