[ExcelVBA] FileLen関数

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧

■構文
FileLen(pathname)

■説明
指定したファイルのサイズをバイト単位で返します。
第一引数：ファイルパスを指定します。

■サンプルコード

Option Explicit

Sub SampleCode()
    Debug.Print FileLen("C:\Sample.txt") '14
    
    
    '【参考】FileSystemObjectを使う場合
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Debug.Print FSO.GetFile("C:\Sample.txt").Size '14
    Set FSO = Nothing
End Sub

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧