Module
Enhavo
Indekso 🔎︎

# FileAttr Function

Liveras la aliran reĝimon aŭ la dosieran aliran numeron de dosiero malfermita per la ordono Open. La dosiera alira numero dependas de la mastruma sistemo (OSH = Operating System Handle, t.e. referenco de mastruma sistemo).

Ĉe 32-bita mastruma sistemo, oni ne povas uzi la funkcion FileAttr por liveri la aliran numeron.

Vidu ankaŭ: Open

## Sintakso:

    FileAttr (FileNumber As Integer, Attribute As Integer)

## Liverota valoro:

Entjero

## Parametroj:

FileNumber: La nombro de la dosiero malfermita per la ordono Open.

Attribute: Entjera esprimo kiu specifas la tipon de informo liverotan. La jenaj valoroj eblas:

1: La funkcio FileAttr liveras la aliran reĝimon de la dosiero.

2: La funkcio FileAttr liveras la dosieran aliran numeron de la mastruma sistemo.

Se oni specifas parametran atributon kun valoro de 1, la jenaj valoroj estas livereblaj:

1 - INPUT (file open for input)

2 - OUTPUT (file open for output)

4 - RANDOM (file open for random access)

8 - APPEND (file open for appending)

32 - BINARY (file open in binary mode).

## Error codes:

5 Nevalida procedurvoko

52 Nevalida dosiera nomo aŭ dosiera numero

## Ekzemplo:

    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 #iNumero, "Jen linio de teksto"

        MsgBox FileAttr(#iNumber, 1 ),0,"Access mode"

        MsgBox FileAttr(#iNumber, 2 ),0,"File attribute"

        Close #iNumber

    End Sub