FileLen関数

 VBAで利用できる関数です。
 指定したファイル(フルパスで指定)のサイズを返します。
 単位はバイトです。

使用例

例1

コード
 ファイルを指定した場合です。

Sub Func_FileLen()

    MsgBox FileLen("E:\テストフォルダ\test.txt")

End Sub

※¥がバックスラッシュとして表示されているかもしれません。

出力
 戻り値の単位はバイトです。
f:id:accs2014:20190130030513p:plain:left:w200

例2

コード
 存在しないファイルを指定した場合です。

Sub Func_FileLen()

    MsgBox FileLen("E:\テストフォルダ\null.txt")

End Sub

※¥がバックスラッシュとして表示されているかもしれません。

出力
 存在しないフォルダやドライブを指定した場合も当然エラーになりますが、ドライブの場合は別のエラー(「パスが見つかりません。」)となります。
f:id:accs2014:20190130030509p:plain:left:w400

例3

コード
 ブートドライブを指定した場合です。

Sub Func_FileLen()

    MsgBox FileLen("C:")

End Sub

出力
 0を返します。
f:id:accs2014:20190130030521p:plain:left:w200

例4

コード
 その他のドライブを指定した場合です。

Sub Func_FileLen()

    MsgBox FileLen("E:")

End Sub

出力
 エラーとなります。
f:id:accs2014:20190130030518p:plain:left:w400

例5

コード
 フォルダを指定した場合です。

Sub Func_FileLen()

    MsgBox FileLen("E:\テストフォルダ")

End Sub

※¥がバックスラッシュとして表示されているかもしれません。

出力
 0を返します。
f:id:accs2014:20190130030515p:plain:left:w200

書式

FileLen(フルパス)

備考

 指定したパスがフォルダ、ドライブである場合は0を返します。