ファイルのサイズを取得する方法

◆概要

このページは、Visual Basic 6.0でファイルのサイズを取得する方法について記載しています。


ファイルのサイズを取得するには、ファイルシステムオブジェクトに含まれるファイルオブジェクトのSize プロパティを利用します。

◆Sample code 

Private Sub Command1_Click()
    Dim objFilesystem As Object
    Dim objFile As Object
    Dim strFileName As String
    
    strFileName = "C:\autoexec.bat"

    Set objFilesystem = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFilesystem.GetFile(strFileName)
    
    Debug.Print strFileName; "のファイルサイズ:"; _
        Format(objFile.Size, "0,0"); _
        "Byte"
    
    'オブジェクトを解放
    Set objFilesystem = Nothing
    Set objFile = Nothing
End Sub
　　

◆FileLenステートメントを使う方法

従来のファイル入出力ステートメントを利用する場合は、FileLenステートメントを使います。

Private Sub Command2_Click()
    Dim strFileName As String
    
    strFileName = "C:\autoexec.bat"
    
    Debug.Print strFileName; "のファイルサイズ:"; _
                Format(FileLen(strFileName), "0,0"); _
                "Byte"
End Sub
　　

◆実行結果

実行結果

▼ページトップへ