Примітка.: Функція, метод, об’єкт або властивість, описана в цьому розділі, недоступна, якщо 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.
