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

Чи були ці відомості корисні?

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

Що вплинуло на ваші враження?

Маєте ще один відгук? (Необов'язково)

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

×