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