ファイルサイズを取得する【FileLen関数】【ExcelVBA】

構文
FileLen関数のサンプルコード
注意点
関連記事

構文

FileLen（filename）

filename・・・・・・・・・ファイルサイズを取得したいファイルをフルパスで指定。

FileLen関数はバイト数でファイルサイズを取得します

FileLen関数のサンプルコード

Public Sub sample()
    Dim tmp As String
    
    tmp = ThisWorkbook.Path & "\" & "sample.xlsx"
    
    '■バイト、キロバイト、メガバイトで取得
    Debug.Print FileLen(tmp)                       '13175 Byte
    Debug.Print Round(FileLen(tmp) / 1024, 2)      '12.87 KB
    Debug.Print Round(FileLen(tmp) / 1048576, 2)   '0.01MB
    
    
    '■パスを指定しないと、カレントフォルダとなる。
    Debug.Print FileLen("sample.xlsx")
    
    '■ファイルが存在しないと、エラー。
    Debug.Print FileLen("C:\sample.xlsx") '実行時エラー '53':ファイルが見つかりません｡
    Debug.Print FileLen("Book1.xlsx") '実行時エラー '53':ファイルが見つかりません｡

End Sub