Забележка: Функцията, методът, обектът или свойството, описани в тази тема, се забраняват, ако услугата microsoft Jet Expression се изпълнява в ограничителен режим, което предотвратява оценяването на потенциално опасни изрази. За повече информация относно ограничителния режим потърсете "ограничителен режим" в помощта.
Връща стойност от тип Long, представляваща файловия режим за файлове, отворени с помощта на командата Open .
Синтаксис
FileAttr ( filenumber , returntype )
Синтаксисът на функцията FileAttr има следните аргументи:
Аргумент |
Описание |
filenumber |
Задължително. Цяло число. Всеки валиден номер на файл. |
тип на връщане |
Задължително. Цяло число. Номер, показващ типа на върнатата информация. Задайте 1, за да се върне стойност, показваща режима на файла. Само за 16-битови системи задайте 2, за да извлечете файлов манипулатор на операционна система. returntype 2 не се поддържа в 32-битови системи и причинява грешка. |
Върнати стойности
Когато типът returntypeаргумент е 1, следните върнати стойности показват режима на достъп до файла:
"Мода" |
Value |
Въвеждане |
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.