Fungsi Lof

Mengembalikan ukuran berkas yang terbuka dalam byte.

Sintaksis:

Lof (NomorBerkas)

Nilai hasil:

Long

Parameter:

FileNumber: Any numeric expression that contains the file number that is specified in the Open statement.

Ikon Tip

Untuk mendapatkan panjang berkas yang tidak terbuka, gunakan file FileLen fungsi.


Kode kesalahan:

5 Tidak sah dalam pemanggilan prosedur

52 Nama berkas atau angka yang buruk

Contoh:

Sub ExampleRandomAccess

Dim iNumber As Integer

Dim sText As Variant REM must be a Variant

Dim aFile As String

    aFile = "c:\data.txt"

    iNumber = Freefile

    Open aFile For Random As #iNumber Len=32

    Seek #iNumber,1 REM Position at start

    Put #iNumber,, "This is the first line of text" REM Fill with text

    Put #iNumber,, "Ini baris teks kedua"

    Put #iNumber,, "Ini baris teks ketiga"

    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,,"Ini baris teks yang baru"

    Get #iNumber,1,sText

    Get #iNumber,2,sText

    Put #iNumber,20,"Ini adalah teks dalam catatan 20"

    Print Lof(#iNumber)

    Close #iNumber

End Sub