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

1 VBAにLOF関数とは？

この記事を書いた人
最新の記事

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

VBAにLOF関数とは？

Openステートメントで既に開かれたファイルのサイズを取得するための関数です。
Openステートメントについては『VBAでテキストファイルを操作する方法』で確認してください(^^)

また、FileLen関数とは違い、テキストファイルなどを書き込み中でもLOF関数ならファイルサイズを取得する事が可能です。

LOF関数の書式

LOF関数の書式は以下の通りです。

LOF(ファイル番号)

1	LOF(ファイル番号)

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

LOF関数の使用方法

上記でも紹介したように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

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関数は書き込み中にはサイズを取得する事ができない

Close #1

End Sub

LOF関数サンプルコード実行の結果

フォロー・チャンネル登録お願いします

■Twitterフォロー

Follow @takabou63

■YouTubeチャンネル登録

ファイルやコードの利用、WEBサイトの利用について

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

カテゴリーで絞る

月で探す

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

taka

最新記事 by taka (全て見る)