Fungsi Lof

Mengembalikan ukuran berkas yang terbuka dalam byte.

Sintaksis:


Lof (NomorBerkas)

Nilai hasil:

Long

Parameter:

NomorBerkas: Ekspresi numerik apa pun yang berisi nomor berkas yang ditentukan dalam pernyataan Open.

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 Harus varian
Dim aFile As String
    aFile = "c:\data.txt"
    iNumber = Freefile
    Open aFile For Random As #iNumber Len=32
    Carilah #iNumber, 1 Posisi Baris di awal
    Masukkan #iNumber,, "Ini adalah baris pertamateks" REM Isi dengan teks
    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