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

今回はファイルサイズの取得についてメモしておきます。
ファイルサイズを取得するには、FileLen関数を使います。

実行プログラム

Sub Sample7_10_1()

    Dim strPath  As String

    strPath = "C:\excelmemo\Sample7_10.txt"

    MsgBox CStr(FileLen(strPath)) & "byte"

End Sub

Sub Sample7_10_1()

Dim strPath As String

strPath = "C:\excelmemo\Sample7_10.txt"

MsgBox CStr(FileLen(strPath)) & "byte"

End Sub

実行条件

実行結果