Lof Function

Fa'nantino fayle bikka bayitetenni qolanno.

Ganallo:


Lof (FayleteKiiro)

Qolote guma:

Seeda

Eishsha:

FayleteSu'ma: Fani fooliishsho giddo badantino faylete kiiro amaddanno kiirote handaara.

Ea'nantinokki fayle seendille afirate,FayleLen assishsha horonsi'ri.

Error codes:

5 Horiweelo aante woshsho

52 Horiweelo faylete su'ma woy faylete kiiro

Lawishsha:


Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sBorro Baxxaancho REM gede Baxxaancho ikka hasiisannosi
Dim aFile As String
    aFile = "c:\data.txt"
    iNumber = Freefile
    Open aFile For Random As #iNumber Len=32
    #iKiiro la'i,1 REM ofolla hanafote
    #iKiiro wori,, "Kuni umi borrote xuuraati" REM Borrotenni wonshshi
    #iKiiro wori ,, "Kuni layinkki borrote xuuraati" 
    #iKiiro wori,, "Kuni sayikki borrote xuuraati" 
    Seek #iNumber,2
    Get #iNumber,,sText
    Print sText
    Close #iNumber
    iNumber = Freefile
    Open aFile For Random As #iNumber Len=32
    Get #iNumber,2,sText
    #iKiiro wori,, "Kuni haaro borrote xuuraati" 
    Get #iNumber,1,sText
    Get #iNumber,2,sText
    #iKiiro wori,20,"Tini 20 maareekko giddo noo borrooti"
    Print Lof(#iNumber)
    Close #iNumber
End Sub