VBA LOF 関数 開いているファイルの長さ(Long)を返す

'■LOF関数サンプル（ファイルサイズを取得する例）
Sub LOF_Sample()
    Dim fPath As String
    Dim fNum As Integer
    Dim fSize As Long

    ' Openステートメントでファイルを開く
    fPath = "c:\VBA_Sample\test.txt"  ' 読み込むファイルのパス
    fNum = FreeFile  ' 空きファイル番号取得
    Open fPath For Binary As #fNum ' ファイルを開く
    
    ' ファイルサイズを取得して表示
    fSize = LOF(fNum)
    MsgBox "ファイルサイズ: " & fSize & " バイト"
    
    ' ファイルを閉じる
    Close #fNum
End Sub

'■LOF関数サンプル２（ファイル内の現在位置を取得する例）
Sub LOF_Sample02()
    Dim fPath As String
    Dim fNum As Integer
    Dim fSize As Long
    Dim curLoc As Long
    Dim str As String

    ' Openステートメントでファイルを開く
    fPath = "c:\VBA_Sample\test.txt"  ' 読み込むファイルのパス
    fNum = FreeFile  ' 空きファイル番号取得
    Open fPath For Binary As #fNum ' ファイルを開く
    
    ' ファイルサイズを取得して表示
    fSize = LOF(fNum)
    
    ' ファイルの終端までループ
    Do While curLoc < fSize
        str = str & Input(1, #fNum) ' 1文字ずつ読み込む
        curLoc = Loc(fNum) ' 現在位置を取得
        ' 進捗状況をイミディエイトに表示
        Debug.Print "Progress: " & _
            Format((curLoc / fSize) * 100, "0.00") & "%"
    Loop

    ' ファイルを閉じる
    Close #fNum
    MsgBox "ファイル操作が完了しました！"
End Sub