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

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

Please support us!