Menuへ

ファイルのサイズを取得

指定したファイルのサイズをバイト数で取得します。 フォルダを指定した場合は、0が返ります。 ファイルが見つからない場合は、エラーが発生します。

シート画面

「ファイルサイズの取得」ボタンをクリックすると、E5にファイルを指定した場合のバイト数、E6にフォルダを指定した場合のバイト数が表示されます。 ファイルが見つからない場合は、「ファイルが見つかりません」のエラーになります。

実行コード

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

Topへ