Примітка.
Функція, метод, об’єкт або властивість, описана в цьому розділі, недоступна, якщо 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 , і значення потрібного атрибута файлу. Якщо результат не дорівнює нулю, цей атрибут установиться для іменованого файлу. Наприклад, повернуте значення наведеного нижче виразу And дорівнює нулю, якщо атрибут Архів не задано:
Result = GetAttr(FName) And vbArchive
Якщо встановлено атрибут Архів, повертається ненульове значення.
Приклад
У цьому прикладі функцію 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.