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

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

Синтаксис

Getattr ( шлях )

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

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

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

Константа

Значення

Опис

vbNormal

0

Нормальний.

vbReadOnly

1

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

vbHidden

2

Приховані.

V"система"

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, доступні лише константи Vbreadonly, Vшириною, Vbreadonly і Vbreadonly.

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.

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

Отримуйте нові функції раніше за інших

Приєднатися до Microsoft оцінювачів >

Ця інформація корисна?

Наскільки ви задоволені якістю мови?
Що вплинуло на ваші враження?

Дякуємо за відгук!

×