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.
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