Модул
Съдържание
Индекс 🔎︎

# Функция FileAttr

Връща режима за достъп или номера за достъп до файл, отворен с оператора Open. Номерът за достъп до файл зависи от операционната система (OSH = Operating System Handle, манипулатор на операционната система).

Ако работите с 32-битова операционна система, не можете да определите номера за достъп до файл с функцията FileAttr.

Виж също: Open

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

    FileAttr (FileNumber As Integer, Attribute As Integer)

## Връщана стойност:

Integer

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

FileNumber: номерът на файла, отворен с оператора Open.

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

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