Modul
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