Модуль
Зміст
Покажчик 🔎︎

# Функція FileAttr

Повертає режим доступу або номер доступу до файлу, відкритого інструкцією Open. Номер доступу до файлу залежить від операційної системи (OSH = Operating System Handle, тобто дескриптор операційної системи).

Якщо використовується 32-розрядна операційна система, то для визначення номера доступу до файлу використовувати функцію FileAttr не можна.

Див. також: Open

## Синтаксис:

    FileAttr (Номер_файлу As Integer, Атрибут As Integer)

## Значення, що повертається:

Ціле число

## Параметри:

Номер_файлу: Номер відкритого файлу інструкцією Open.

Атрибут: цілий вираз, що визначає якого типу інформацію про файл потрібно отримати. Можливі значення:

1: Функція FileAttr вказує режим доступу до цього файлу.

2: Функція FileAttr повертає номер доступу до файлу операційної системи.

Якщо для параметра Атрибут вказується значення 1, то можуть бути повернуті такі значення:

1 - INPUT (файл відкритий для запису)

2 - OUTPUT (файл відкритий для виведення)

4 - RANDOM (файл відкритий для довільного доступу)

8 - APPEND (файл відкритий для додавання)

32 - BINARY (файл відкритий у двійковому режимі).

## Коди помилок:

5 Неправильний виклик процедури

52 Неправильне ім'я або номер файлу

## Приклад:

    Sub ExampleFileAttr

    Dim iNumber As Integer

    Dim sLine As String

    Dim aFile As String

        aFile = "c:\data.txt"

        iNumber = Freefile

        Open aFile For Output As #iNumber

        Print #iNumber, "Це рядок тексту"

        MsgBox FileAttr(#iNumber, 1 ),0,"Режим доступу"

        MsgBox FileAttr(#iNumber, 2 ),0,"Атрибут файлу"

        Close #iNumber

    End Sub