Съдържание

# Функция FileAttr

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

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

Виж също: Open

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

      FileAttr (Channel As Integer, Attributes As Integer)

### Резултат:

Integer

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

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

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

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:\Users\ThisUser\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

Теми, свързани с показаната

Оператор Close

Функция FreeFile

Оператор Open

Оператор Print#