Функция 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 (файлът е отворен в двоичен режим).

Пример:

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