Функция FileAttr

Функция FileAttr(File Attribute) анализирует состояние файла и выдает сообщение о режиме файла, открытого с помощью инструкции Open

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

Input=1
Output=2
Random=4
Append=8
Binary=32

FileNumber

Обязательный аргумент типа Integer, указывающий на любой допустимый номер файла

ReturnType

Необязательный аргумент типа Integer, указывающий характер возвращаемых данных. Начиная c Visual Basic версии 5, поддерживается только одно значение:1, которое параметр принимает по умолчанию. Поэтому его можно игнорировать. В 16-разрядных системах значение 2 задает возвращение дескриптора файла в операционной системе. В 32-разрядных системах значение 2 аргумента ReturnType не поддерживается и приводит к ошибке

' В данном примере функция FileAttr
' используется для определения режима файла

Dim FileNum, Mode
FileNum = 1 ' Присваивает номер файла
Open "TESTFILE" For Append As FileNum ' Открывает файл
Mode = FileAttr(FileNum, 1) ' Возвращает 8 (режим Append)
Close FileNum ' Закрывает файл