Функция FileAttr

Статья
04/07/2023

Возвращает значение Long , представляющее режим файлов, открытых с помощью инструкции Open .

Синтаксис

FileAttr(filenumber, returntype)

Синтаксис функции FileAttr включает следующие именованные аргументы:

Part	Описание
filenumber	Обязательный элемент; Integer. Любой допустимый номер файла.
Returntype	Обязательный элемент; Integer. Число, указывающее, какой тип информации возвращает функция. Укажите значение 1, чтобы функция возвращала число, соответствующее файловому режиму. Задайте значение аргумента 2, чтобы получить файловый дескриптор операционной системы (только для 16-битных систем). Значение 2 для аргумента returntype не поддерживается в 32-битных системах и приводит к ошибке.

Part

Описание

filenumber

Обязательный элемент; Integer. Любой допустимый номер файла.

Returntype

Обязательный элемент; Integer. Число, указывающее, какой тип информации возвращает функция. Укажите значение 1, чтобы функция возвращала число, соответствующее файловому режиму. Задайте значение аргумента 2, чтобы получить файловый дескриптор операционной системы (только для 16-битных систем). Значение 2 для аргумента returntype не поддерживается в 32-битных системах и приводит к ошибке.

Возвращаемые значения

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

Режим	Значение
Ввод	1
Вывести	2
Случайных	4
Добавить	8
Binary	32

Пример

В этом примере функция 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.

См. также

Функции (Visual Basic для приложений)

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.