[ExcelVBA] FileLen関数

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

■構文
FileLen(pathname)

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

■サンプルコード

view plainprint?

1. Option Explicit  
2.   
3. Sub SampleCode()  
4.     Debug.Print FileLen("C:\Sample.txt") '14  
5.       
6.       
7.     '【参考】FileSystemObjectを使う場合  
8.     Dim FSO As Object  
9.     Set FSO = CreateObject("Scripting.FileSystemObject")  
10.     Debug.Print FSO.GetFile("C:\Sample.txt").Size '14  
11.     Set FSO = Nothing  
12. End Sub  

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] 関数一覧