ファイルサイズを取得

Sub ExampleFileLen()
       Dim lngFileSize As Long
       lngFileSize = FileLen("D:\SampleFolder\sample.txt")
       Msgbox("ファイルサイズ : " & lngFileSize & " バイト")
End Sub


ファイルサイズを取得する場合は、FileLen 関数を使用する。
FileLen 関数の書式は下記の通り :

FileLen( Pathname )

Pathname には、対象ファイルのファイル名を示す
Pathname には、存在するか否かを確認するファイルのファイル名を示す
文字列式を記述する。Pathname にはフォルダ名およびドライブ名を含めて
指定することができる。
また、Pathname をURL指定することもできる。

FileLen 関数は戻り値としてファイルサイズをバイト単位で返す。戻り値の型
は長整数。