Функция FileAttr
Возвращает значение Long , представляющее режим файлов, открытых с помощью инструкции Open .
Синтаксис
FileAttr(filenumber, returntype)
Синтаксис функции FileAttr включает следующие именованные аргументы:
| 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.
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.