Contents
Index 🔎︎

# Lof Function

Trả về kích cỡ theo byte của một tập tin còn mở.

## Cú pháp:

    Lof (FileNumber)

## GIá trị trả về:

Dài

## Tham số :

FileNumber: bất cứ biểu thức thuộc số nào mà chứa số thứ tự tập tin được ghi rõ trong câu lệnh Open.

Để giành được chiều dài của một tập tin chưa mở, dùng hàm FileLen.

## Error codes:

5 Sai gọi thủ tục

52 Tên/số tập tin sai

## Thí dụ :

    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 #soNguyen,, "Day la dong thu hai"
        Put #soNguyen,, "Day la dong thu ba"
        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,,"This is a new line of text"
        Get #iNumber,1,sText
        Get #iNumber,2,sText
        Put #soNguyen,20,"Day la van ban trong ban ghi 20"
        Print Lof(#iNumber)
        Close #iNumber
    End Sub