Excel VBAでファイルのサイズを取得する

ファイルのサイズを取得するVBA

Excelシート画面

「ファイルサイズの取得」ボタンをクリックすると、E5にファイルを指定した場合のバイト数、E6にフォルダを指定した場合のバイト数が表示されます。

E6セルはフォルダなので「0」が表示されています。

E7セルはファイルが見つからないのでエラーメッセージが表示され、セルには何も表示されません。

ファイルが見つからない場合は、「ファイルが見つかりません」のエラーになります。

Excel VBA実行コード

Option Explicit

Private Sub CommandButton1_Click()
    Cells(5, 5) = FileLen("c:\image1.jpg")
    Cells(6, 5) = FileLen("c:\windows")
    Cells(7, 5) = FileLen("c:\image2.jpg")

End Sub

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します

Excel VBAでファイルのサイズを取得する｜FileLen関数

FileLen関数を使用しファイルサイズをバイト数で取得するVBAです。

ファイルのサイズを取得するVBA