FileAttr Function

Fano fooliishshonni fa'nantino injote garinni woy faylete injo kiiro qoltanno. Faylete injo kiiro assishshu amuraati aana irkidhanno(OSH = Assootu amuraati kasa).

Qaagishshu Bido

32-Bite assootu amuraate horonsi'rittoro, faylete injo kiiro tirate FileAttr-Assishsha horonsi'ra didandaatto.


Hattono: Fani la'i

Syntax:


FayleteSona (FayleteKiiro Intijerete gede, Sona Intijerete gede)

Return value:

Intijere

Parameters:

FayleteKiiro: Fooliishsho fani yaannohunni fa'nantino faylete kiiro.

Sona: Qola hasiratto faylete mashalaqqe dana leellishanno Intijerete handaara. Konni woroonni noo hornyuwa dandiinanni:

1: FayleteSona-Assishsha faylete injo gara leellishanno.

2: FileAttr-Assishsha assootu amuraati faylete injo kiiro qolanno.

Eishshu sona 1 hornyinni badittoro, konni woroonni noo qolote hornyuwa loosaansitanno:

1 - EO (eote fayle fana)

2 - GUMA (gumaho fayle fana)

4 - RANDEME (hedeweelcho injora fayle fana)

8 - Qa'misa (maxxagisaho fayle fana)

32 - LAMINAATE (laminaatu gari giddo fayle fana).

Error codes:

5 Horiweelo aante woshsho

52 Horiweelo faylete su'ma woy faylete kiiro

Example:


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
    #ikiiro attami, "Kuni borrote xuruuraati"
    MsgBox FileAttr(#iNumber, 1), 0, "Access mode"
    MsgBox FileAttr(#iNumber, 2), 0, "File attribute"
    Close #iNumber
End Sub

Please support us!