Функция FileAttr

Важно : Тази статия е преведена машинно – вижте отказа от отговорност. Английската версия на тази статия за справка можете да намерите тук .

Забележка : Функция, метод, обект или свойство, описани в тази тема е забранено, ако Microsoft Jet Expression Service се изпълнява в ограничителен режим, който не позволява на оценката на потенциално опасни изрази. За повече информация за ограничителен режим потърсете "ограничителен режим" в "Помощ".

Връща Long, представляваща режима за файлове, отворени с помощта на отчета отворен .

Синтаксис

FileAttr () filenumber , returntype )

Синтаксисът на функцията FileAttr има следните аргументи:

Аргумент

Описание

filenumber

Изисква се. Цяло число. Всяко валидно номер на файл.

returntype

Изисква се. Цяло число. Число, показващо типа информация да се върне. Задайте 1, за да върне стойност, показваща режим на файла. 16-битовият системи само посочете 2, за да извлечете операционна система файлов манипулатор. returntype 2 не се поддържа в 32-битови системи и причинява грешка.

Връщат стойности

Когато returntypeаргумент е 1, следващи примери връщат стойности показват файлът режим на достъп.

Режим

Стойност

Въвеждане на данни

1

Изходните данни

2

Случайни

4

За добавяне

8

Двоичен

32

Пример

Забележка : Примерите по-долу илюстрират използването на тази функция във Visual Basic for Applications (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.

Забележка : Отказ от отговорност за машинен превод: Тази статия е преведена от компютърна система без човешка намеса. Microsoft предлага тези машинни преводи, за да помогне на потребителите, които не говорят английски, да се възползват от съдържанието за продукти, услуги и технологии на Microsoft. Тъй като статията е преведена машинно, е възможно да съдържа грешки в речника, синтаксиса и граматиката.

Разширете уменията си
Преглед на обучението
Получавайте първи новите функции
Присъединете се към участниците в Office Insider

Беше ли полезна тази информация?

Благодарим ви за обратната връзка!

Благодарим ви за вашата обратна връзка. Изглежда, че ще бъде полезно да ви свържем с един от нашите агенти по поддръжката на Office.

×