Isi
Indeks 🔎︎

# 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