Примітка.: Функція, метод, об’єкт або властивість, описана в цьому розділі, недоступна, якщо Microsoft Jet Expression Service працює в режимі ізольованого програмного середовища, що запобігає обчисленню потенційно небезпечних виразів. Щоб отримати докладні відомості про режим ізольованого програмного середовища, у вікні довідки шукайте за запитом "режим ізольованого програмного середовища".
Повертає довге ціле, що позначає режим файлу для файлів, відкритих за допомогою оператора Open .
Синтаксис
FileAttr ( filenumber ; returntype )
Синтаксис функції FileAttr має такі аргументи:
|
Аргумент |
Опис |
|
номер файлу |
Обов’язковий аргумент. Типу Integer. Будь-які припустимі номер файлу. |
|
returntype (тип повернення) |
— обов’язковий аргумент. Ціле число. Число, яке вказує тип інформації, яку потрібно повернути. Укажіть 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, HandleFileNum = 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.
