Pag-andar ng FileAttr

Ibinabalik ang access mode o ang file access number ng isang file na binuksan gamit ang Open statement. Ang file access number ay nakadepende sa operating system (OSH = Operating System Handle).

Kung gumagamit ka ng 32-Bit na operating system, hindi mo magagamit ang FileAttr function upang matukoy ang file access number.

Tingnan din ang: Bukas

Syntax:


  FileAttr (Channel Bilang Integer, Mga Katangian Bilang Integer)

Ibinalik na halaga:

Integer

Mga Parameter:

Channel : Ang numero ng file na binuksan gamit ang Open statement.

Mga Katangian : Integer expression na nagpapahiwatig ng uri ng impormasyon ng file na gusto mong ibalik. Posible ang mga sumusunod na halaga:

1: Ang FileAttr ay nagpapahiwatig ng access mode ng file.

2: Ibinabalik ng FileAttr ang file access number ng operating system.

Kung tumukoy ka ng attribute ng parameter na may value na 1, ilalapat ang mga sumusunod na return value:

1 - INPUT (bukas ang file para sa input)

2 - OUTPUT (bukas ang file para sa output)

4 - RANDOM (bukas ang file para sa random na pag-access)

8 - APPEND (bukas ang file para idugtong)

32 - BINARY (bukas ang file sa binary mode).

Mga error code:

5 Di-wastong procedure call

52 Di-wastong pangalan ng file o numero ng file

Halimbawa:


Sub ExampleFileAttr
    Dim iNumber As Integer
    Dim sLine As String
    Dim aFile As String
    aFile = "C:\Users\ThisUser\data.txt"
    iNumber = Freefile
    Open aFile For Output As #iNumber
    I-print ang #iNumber, "Ito ay isang linya ng teksto"
    MsgBox FileAttr(#iNumber, 1), 0, "Access mode"
    MsgBox FileAttr(#iNumber, 2), 0, "File attribute"
    Close #iNumber
End Sub