FileAttr Function

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

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

Hattono: Fani la'i

Ganallo:

FayleteSona (FayleteKiiro Intijerete gede, Sona Intijerete gede)

Qolote guma:

Intijere

Eishshuwa:

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

Lawishsha:

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

    #ikiiro attami, "Kuni borrote xuruuraati"

    MsgBox FileAttr(#iNumber, 1 ),0,"Injo gara"

    MsgBox FileAttr(#iNumber, 2 ),0,"Faylete sona"

    Close #iNumber

End Sub