Функція GetAttr

Увага! : Цю статтю перекладено за допомогою служби машинного перекладу; див. застереження. Версію цієї статті англійською мовою див. тут для отримання довідки.

Примітка : Функції, метод об'єкта або майна, описані в цій статті буде вимкнуто, якщо вираз служби Microsoft Jet працює у режимі ізольованого програмного середовища, що запобігає обчислення потенційно небезпечних виразів. Додаткові відомості про режим ізольованого програмного середовища знайдіть «режим пісочниці» у вікні довідки.

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

Синтаксис

GetAttr ( шляху )

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

Повернуте значення

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

Константа

Значення

Опис

vbNormal

0

Звичайний.

vbReadOnly

1

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

vbHidden

2

Приховані.

vbSystem

4

Системний файл. Функція недоступна в Macintosh.

vbDirectory

16

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

vbArchive

32

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

vbAlias

64

Ім'я вказаного файлу – це псевдонім. Доступні тільки на Macintosh.


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

Примітки

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

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

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.

Примітка : Застереження про машинний переклад: Цю статтю перекладено комп’ютерною системою без втручання людини. Корпорація Майкрософт пропонує таку послугу, щоб іншомовні користувачі могли дізнаватися про продукти, служби й технології Microsoft. Оскільки статтю перекладено за допомогою служби машинного перекладу, вона може містити смислові, синтаксичні або граматичні помилки.

Отримуйте нові функції раніше за інших
Приєднайтеся до оцінювачів Office

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

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

Дякуємо за відгук! Схоже, вам може стати в нагоді допомога одного з наших спеціалістів служби підтримки Office, з яким ми вас можемо з’єднати.

×