Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

開いているファイルのサイズ・位置の取得（LOF 関数・Loc 関数）

2015/12/30 2016/01/04

LOF 関数

Open ステートメントにより開かれたファイルのサイズをバイト単位を表す長整数型（Long）の値で取得するには、LOF 関数を使用します。

【書式】

＜取得＞
result = LOF ( filenumber )

引数・戻り値

filenumber ・・・ Open ステートメント で、割り当てられたファイル番号を指定します。
result ・・・ファイルサイズ（バイト単位）を表す長整数型（Long）の値。

開いていないファイルのサイズを取得するには FileLen 関数 を使用します。

Loc 関数

Open ステートメントにより開かれたファイル内の現在の読み取り位置または書き込み位置をあらわす長整数型（Long）の値を取得するには、Loc 関数を使用します。

【書式】

＜取得＞
result = Loc ( filenumber )

引数・戻り値

filenumber ・・・ Open ステートメント で、割り当てられたファイル番号を指定します。

result ・・・現在の読み取り位置または書き込み位置を示す長整数型（Long）の値で、Open ステートメントを使用してファイルを開く時のモードにより以下のとおりになります。

モード	result の内容
ランダムアクセスモード（Random）	最後に読み取りまたは書き込みを行ったレコードの番号
バイナリモード（Binary）	最後に読み取りまたは書き込みを行ったバイトの位置
シーケンシャル入力モード（Input）シーケンシャル出力モード（Output）追加モード（Append）	ファイル内の現在のバイト位置を 128 で割った値。

LOF 関数・Loc 関数使用例

サンプルVBAソース

　
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

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

　

実行結果

- Excel・ファイルの操作 Excel・ファイルの操作, Loc 関数, LOF 関数, Open ステートメント, VBA基本, エクセルVBA

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: ディレクトリまたはフォルダの作成（MkDir ステートメント）

ディレクトリまたはフォルダの作成新しいディレクトリまたはフォルダを作成するには …

: テキストファイル：データを書き込む（Print # ステートメント）

Print # ステートメント Open ステートメントをシーケンシャル出力モ …

: Open ステートメントで使用できるファイル番号を取得（FreeFile 関数）

FreeFile 関数 Open ステートメントで使用するファイル番号（ 1 ～ …

: テキストファイル：データを書き込む（Write # ステートメント）

Write # ステートメント Open ステートメントをシーケンシャル出力モ …

: ディレクトリまたはフォルダの削除（RmDir ステートメント）

ディレクトリまたはフォルダの削除ディレクトリまたはフォルダを削除するには、Rm …

: 「名前を付けて保存」ダイアログボックスを表示（GetSaveAsFilename メソッド）

GetSaveAsFilename メソッド「名前を付けて保存」ダイアログボッ …

: フルパスからファイル名、パスを取得する

フルパスからファイル名のみを取得するフルパスからファイル名を取得するには、Di …

: ファイルの検索・フォルダ内のファイル一覧を取得（Dir 関数）

Dir 関数 Dir 関数で、ファイルの存在を確認したり、指定したフォルダ内のフ …

: 組み込みダイアログボックスの引数一覧

組み込みダイアログボックスの引数一覧 Excel の組み込みダイアログボックスを …

: ファイルをコピー（FileCopy ステートメント）

FileCopy ステートメントファイルをコピーします。ただし、開いているファ …

PREV: EOF 関数
NEXT: 開いているファイルの現在の読み取り位置または書き込み位置を取得（Seek 関数）