Функція FileAttr

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

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

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

Синтаксис

FileAttr ( filenumber , returntype )

Синтаксис функції FileAttr має такі аргументи:

Аргумент

Опис

filenumber

Обов'язковий аргумент. Ціле число. Будь-який дійсний номер файлу.

returntype

Обов'язковий аргумент. Ціле число. Число, яке вказує тип даних, щоб повернути. Укажіть 1, щоб повернути значення, що файл режим. На 16-розрядна версія системи лише визначення 2, щоб отримати повідомлення маркер файл операційної системи. returntype 2 не підтримується у 32-розрядна версія системи та призводить до помилки.

Значення, що повертаються

Коли returntypeаргумент 1, наведені нижче формули повернуть значення указують режим доступу до файлу:

Режим

Значення

Введення даних

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.
Удосконалення навичок роботи з Office
Ознайомтеся з навчальними матеріалами
Отримуйте нові функції раніше за інших
Приєднайтеся до оцінювачів Office

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

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

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

×