Примечание
Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений 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.