構文
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
注意点
- FileLen関数で取得するファイルサイズはバイト数(Byte)であることを理解しましょう。
- KB(キロバイト)やMB(メガバイト)で取得する場合は、計算する必要があります。
コメント