Функция 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