Lof Function

Egy megnyitott fájl méretét adja vissza bájtban.

Szintaxis:

Lof (FileNumber)

Visszatérési érték:

Long

Paraméterek:

Fájlszám: Bármilyen numerikus kifejezés, amely tartalmazza az Open utasításában megadott fájlszámot.

Tipp ikon

A nem megnyitott fájl méretének lekérdezéséhez használja a FileLen függvényt.


Error codes:

5 Érvénytelen eljáráshívás

52 Érvénytelen fájlnév vagy fájlszám

PĂ©lda:

Sub ExampleRandomAccess

Dim iNumber As Integer

Dim sText As Variant REM Variant tĂ­pusĂşnak kell lennie

Dim aFile As String

    aFile = "c:\data.txt"

    iNumber = Freefile

    Open aFile For Random As #iNumber Len=32

    Seek #iNumber,1 REM Indítási pozíció

    Put #iNumber,, "Ez a szöveg első sora" REM Kitöltés szöveggel

    Put #iNumber,, "Ez a szöveg második sora"

    Put #iNumber,, "Ez a szöveg harmadik sora"

    Seek #iNumber,2

    Get #iNumber,,sText

    Print sText

    Close #iNumber

    iNumber = Freefile

    Open aFile For Random As #iNumber Len=32

    Get #iNumber,2,sText

    Put #iNumber,,"Ez egy új szövegsor"

    Get #iNumber,1,sText

    Get #iNumber,2,sText

    Put #iNumber,20,"Ez a szöveg a 20. rekordban"

    Print Lof(#iNumber)

    Close #iNumber

End Sub