開いているファイルのサイズ・位置の取得(LOF 関数・Loc 関数)
2016/01/04
LOF 関数
Open ステートメント により開かれたファイルのサイズをバイト単位を表す長整数型(Long)の値で取得するには、LOF 関数を使用します。
<取得>
result = LOF ( filenumber )
引数・戻り値
- filenumber ・・・ Open ステートメント で、割り当てられたファイル番号を指定します。
- result ・・・ ファイルサイズ(バイト単位)を表す長整数型(Long)の値。
開いていないファイルのサイズを取得するには FileLen 関数 を使用します。
- filenumber ・・・ Open ステートメント で、割り当てられたファイル番号を指定します。
- result ・・・ ファイルサイズ(バイト単位)を表す長整数型(Long)の値。
開いていないファイルのサイズを取得するには FileLen 関数 を使用します。
Loc 関数
Open ステートメント により開かれたファイル内の現在の読み取り位置または書き込み位置をあらわす長整数型(Long)の値を取得するには、Loc 関数を使用します。
<取得>
result = Loc ( filenumber )
引数・戻り値
- filenumber ・・・ Open ステートメント で、割り当てられたファイル番号を指定します。
- result ・・・ 現在の読み取り位置または書き込み位置を示す長整数型(Long)の値で、Open ステートメントを使用してファイルを開く時のモードにより以下のとおりになります。
モード
result の内容
ランダムアクセスモード(Random)
最後に読み取りまたは書き込みを行ったレコードの番号
バイナリモード(Binary)
最後に読み取りまたは書き込みを行ったバイトの位置
シーケンシャル入力モード(Input)
シーケンシャル出力モード(Output)
追加モード(Append)
ファイル内の現在のバイト位置を 128 で割った値。
- filenumber ・・・ Open ステートメント で、割り当てられたファイル番号を指定します。
- result ・・・ 現在の読み取り位置または書き込み位置を示す長整数型(Long)の値で、Open ステートメントを使用してファイルを開く時のモードにより以下のとおりになります。
モード result の内容 ランダムアクセスモード(Random) 最後に読み取りまたは書き込みを行ったレコードの番号 バイナリモード(Binary) 最後に読み取りまたは書き込みを行ったバイトの位置
シーケンシャル入力モード(Input)
シーケンシャル出力モード(Output)
追加モード(Append)ファイル内の現在のバイト位置を 128 で割った値。
LOF 関数・Loc 関数 使用例
サンプルVBAソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
Sub Sample_LOF_Loc() Dim FileName As String Dim FNum As Integer Dim str As String Dim mySize As Integer FileName = "C:\Documents\mydata\file01.txt" FNum = FreeFile 'ファイルをバイナリモードで開く Open FileName For Binary As #FNum '20文字分を取得し 変数 str に格納 str = Input(20, #FNum) '現在の読み取り位置とファイルのサイズを表示 '(いずれもバイト単位) MsgBox Loc(FNum) & " / " & LOF(FNum) & " バイト" 'ファイルを閉じる Close #FNum End Sub |
実行結果
関連記事
-
-
テキストファイル:データを読み込む(Line Input # ステートメント)
Line Input # ステートメント Open ステートメントをシーケンシャ …
-
-
テキストファイル:データを読み込む(Input # ステートメント)
Input # ステートメント Open ステートメント をシーケンシャル入力モ …
-
-
ファイルをコピー(FileCopy ステートメント)
FileCopy ステートメント ファイルをコピーします。ただし、開いているファ …
-
-
テキストファイル:データを書き込む(Put ステートメント)
Put ステートメント Open ステートメント をランダムアクセスモード(Ra …
-
-
FileDialogFilters コレクション・FileDialogFilter オブジェクト
FileDialogFilters コレクション FileDialog オブジェ …
-
-
開いているファイルの現在の読み取り位置または書き込み位置を取得(Seek 関数)
Seek 関数 Open ステートメント で開いたファイル内の現在の読み取り位置 …
-
-
ファイルを削除(Kill ステートメント)
ファイルを削除する ファイルを削除するには、Kill ステートメント を使用しま …
-
-
テキストファイル:データを書き込む(Print # ステートメント)
Print # ステートメント Open ステートメント をシーケンシャル出力モ …
-
-
特殊フォルダを取得(wsh.SpecialFolders)
CreateObject 関数:特殊フォルダを取得(WSH.SpecialFol …
-
-
FileDialog オブジェクトを取得する(FileDialog プロパティ)
FileDialog プロパティ FileDialog オブジェクト を取得しま …