Функція FileAttr

Застосовується до
Access для Microsoft 365 Access 2021 Access 2019 Access 2016

Примітка.

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

Повертає довге ціле, що позначає режим файлу для файлів, відкритих за допомогою оператора Open .

Синтаксис

FileAttr(номер_файлу;тип_повернення)

Синтаксис функції 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, 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.