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