ExcelVBA Tips(ファイル)

HOME>TOP>ファイル

ファイルのサイズを取得するには？

キーワード>>FileLen

Point：目的のファイルのサイズ(大きさ)を知りたい。(バイト単位)

Sub Test()
Dim MySize,Res

     MySize = FileLen("C:\Book1.xls")
    'ファイル名はフルパスも可

     Res = MsgBox("ファイルサイズ ⇒ " & MySize & "バイト")
End Sub

掲載サンプルコードの使用に関して、直接・間接
を問わず生じた一切の損害について如何なる責任も負いません。