FileAttr funkcija

Grąžina failo, atverto naudojant atvėrimo sakinį, prieigos veikseną arba failo prieigos numerį. Failo prieigos numeris priklauso nuo operacinės sistemos (OSH = Operating System Handle).

Jei naudojate 32 bitų operacinę sistemą, failo prieigos numeriui nustatyti negalite naudoti „FileAttr-Function“.

Dar žr.: Atverti

Sintaksė:


FileAttr (failo numeris sveikuoju skaičiuomi, atributas sveikuoju skaičiumi)

Grąžinama reikšmė:

Sveikasis skaičius

Parametrai:

FileNumber: Failo, kuris buvo atvertas naudojant atvėrimo sakinį, numeris.

Attribute: sveikojo skaičiaus išraiška, nurodanti failo informacijos, kurią norite grąžinti, tipą. Galimos šios reikšmės:

1: „FileAttr-Function“ nurodo failo prieigos veikseną.

2: „FileAttr-Function“ pateikia operacinės sistemos failo prieigos numerį.

Jei nurodote parametro atributą, kurio reikšmė yra 1, taikomos šios grąžinimo reikšmės:

1 - INPUT (failas atvertas įvedimui)

2 - OUTPUT (failas atvertas išvedimui)

4 - RANDOM (failas atvertas atsitiktinei prieigai)

8 - APPEND (failas atvertas pridėjimui)

32 - BINARY (failas atvertas dvejetaine veiksena).

Klaidos kodai:

5 Neteisingas procedūros iškvietimas

52 neteisingas failo pavadinimas arba failo numeris

Pavyzdys:


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, "Tai teksto eilutė"
    MsgBox FileAttr(#iNumber, 1 ),0,"Prieigos veiksena"
    MsgBox FileAttr(#iNumber, 2 ),0,"Failo atributas"
    Close #iNumber
End Sub