Примечание
Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений Microsoft Jet выполняется в режиме песочницы, который не позволяет рассчитывать потенциально небезопасные выражения. Для получения дополнительных сведений выполните в справке поиск по словам "режим песочницы".
Возвращает значение типа Long, представляющее режим файла, открытого с помощью инструкции Open.
Синтаксис
FileAttr(filenumber,returntype)
Функция FileAttr имеет следующие аргументы:
| Аргумент | Описание |
|---|---|
| номер_файла | Обязательный аргумент. Целое число. Любой допустимый номер файла. |
| возвращаемый_тип | — обязательный аргумент. Целое число. Число, указывающее тип возвращаемых данных. Укажите "1", чтобы возвратить значение, обозначающее режим файла. Только в 16-разрядных системах укажите "2", чтобы получить дескриптор файла операционной системы. ReturnType 2 не поддерживается в 32-разрядных системах и вызывает ошибку. |
Возвращаемые значения
Если аргумент returntypeравен 1, следующие возвращаемые значения указывают режим доступа к файлам:
| Режим | Значение |
|---|---|
| Ввод | 1 |
| Вывод | 2 |
| Произвольный | 4 |
| Добавление | 8 |
| Двоичный | 32 |
Пример
Примечание
В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (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.