Примітка.
Функція, метод, об’єкт або властивість, описана в цьому розділі, недоступна, якщо Microsoft Jet Expression Service працює в режимі ізольованого програмного середовища, що запобігає обчисленню потенційно небезпечних виразів. Щоб отримати докладні відомості про режим ізольованого програмного середовища, у вікні довідки шукайте за запитом "режим ізольованого програмного середовища".
Повертає значення Long, яке позначає режим файлу файлів, відкритих за допомогою інструкції Open .
Синтаксис
FileAttr(номер_файлу;тип повернення)
Синтаксис функції FileAttr має такі аргументи:
| Аргумент | Опис |
|---|---|
| номер файлу | Обов’язковий аргумент. Типу Integer. Будь-який дійсний номер файлу. |
| returntype (тип повернення) | — обов’язковий аргумент. Типу Integer. Число, яке вказує тип інформації, яку потрібно повернути. Укажіть 1, щоб повернути значення, яке вказує режим файлу. Лише в 16-розрядних системах укажіть 2, щоб отримати дескриптор файлу операційної системи. ReturnType 2 не підтримується в 32-розрядних системах і спричиняє помилку. |
Значення, що повертаються
Якщо аргумент returntypeдорівнює 1, такі значення, що повертаються, вказують на режим доступу до файлу:
| Режим роботи | Value (Значення) |
|---|---|
| Вхідні дані | 1 |
| Вивід | 2 |
| Випадково. | 4 |
|
|
8 |
| Двійкове число | 32 |
Приклад
Примітка.
У прикладах нижче показано використання цієї функції в модулі Visual Basic for Applications (VBA). Щоб отримати докладні відомості про використання модуля VBA, клацніть пункт Довідник розробника в розкривному списку поряд із полем Пошук і введіть у поле пошуку принаймні один термін.
У цьому прикладі функцію FileAttr використано, щоб повернути режим файлу та дескриптор файлу відкритого файлу. Дескриптор файлу повертається лише в 16-розрядних системах; У 32-розрядних системах введення числа 2 як другого аргументу призводить до помилки.
Dim FileNum, Mode, Handle
FileNum = 1 ' Assign file number.
Open "TESTFILE" For Append As FileNum ' Open file.
Mode = FileAttr(FileNum, 1) ' Returns 8 (Append file mode).
Handle = FileAttr(FileNum, 2) ' Returns file handle.
Close FileNum ' Close file.