Lof Function

オープン済みファイルのサイズを、バイト単位で返します。

構文:


Lof (FileNumber)

戻り値:

ロング整数

パラメーター:

FileNumber: Open ステートメントが割り当てたファイル番号を示す数値表式。

オープンされていないファイルのサイズを取得する場合は、FileLen 関数を使用する必要があります。

Error codes:

5 無効なプロシージャー呼び出しです

52 ファイル名または番号が不正です

例:


Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant REM バリアント型変数が必要
Dim aFile As String
    aFile = "c:\data.txt"
    iNumber = Freefile
    Open aFile For Random As #iNumber Len=32
    Seek #iNumber,1 REM 開始位置
    Put #iNumber,, "This is the first line of text"  REM テキストの書き込み
    Put #iNumber,, "This is the second line of text"
    Put #iNumber,, "This is the third line of text"
    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 #iNumber,20,"This is the text in record 20"
    Print Lof(#iNumber)
    Close #iNumber
End Sub