Функция FileAttr

Примечание : Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений Microsoft Jet выполняется в режиме песочницы, который не позволяет рассчитывать потенциально небезопасные выражения. Для получения дополнительных сведений выполните в справке поиск по словам "режим песочницы".

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

Синтаксис

FileAttr ( номер_файла , возвращаемый_тип )

Функция FileAttr имеет следующие аргументы:

Аргумент

Описание

номер_файла

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

возвращаемый_тип

Обязательный аргумент. Целое число. Число, обозначающее тип возвращаемых данных. Если указано 1, возвращается значение, обозначающее режим открытия файла. Если указано 2, возвращается дескриптор файла в операционной системе. (Только для 16-разрядных операционных систем.) Значение 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.
Совершенствование навыков
Перейти к обучению
Первоочередный доступ к новым возможностям
Присоединиться к программе предварительной оценки Office

Были ли сведения полезными?

Спасибо за ваш отзыв!

Благодарим за отзыв! Возможно, будет полезно связать вас с одним из наших специалистов службы поддержки Office.

×