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