VBA 【LOF関数】ファイルサイズを取得する

LOF(ファイル番号)

引数には対象となるファイルの「ファイル番号」を指定します。「ファイル番号」は1～511の範囲の数値で指定します。

上記でも紹介したようにLOF関数はOpenステートメントで開いたファイルのサイズを取得できます。またLOF関数は書き込み中でもファイルサイズを取得することができます。

下記のコードでは「DドライブのLOFテスト.txtに『これはテストです』を５回書き込みを行う」というコードです。

そして書き込み中の間にイミディエイトウィンドウにLOF関数とFileLen関数の値を出力しています、結果を見ていただければわかると思いますが、LOF関数は文字を追加した分ファイルサイズが増えていきますが、FileLen関数の分は増えていないはずです。

これがLOF関数とFileLen関数の差になります。

Sub Sample()

Dim i As Long
Dim text As String
text = "D:\LOFテスト.txt"

Open text For Append As #1

For i = 1 To 5

Print #1, "これはテストです"
 Debug.Print "LOF" & LOF(1) 'LOF関数は書き込み中でもサイズを取得できる
 Debug.Print "FileLen" & FileLen(text) 'FileLen関数は書き込み中にはサイズを取得する事ができない

Next

  Close #1
End Sub