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

◆概要

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


ファイルシステムオブジェクトに含まれるFolderオブジェクトのSize プロパティを使うことで、フォルダ内のすべてのファイルおよびフォルダの合計サイズを取得できます。

◆Sample code

次の例は、アプリケーションのカレントフォルダのサイズを取得し、イミディエイトウィンドウに表示します。


次の例を実行する前に、Visual Basic 6.0のメニュー[表示]-[イミディエイトウィンドウ]（ショートカットCtrl+G）でイミディエイトウィンドウを表示させておいてください。 

Private Sub Command1_Click()
    Dim objDriveSystem As Object
    Dim objFolder      As Object

    Set objDriveSystem = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objDriveSystem.GetFolder(App.Path)

    'App.Path フォルダのサイズを取得
    Debug.Print App.Path + "フォルダのサイズ:"; _
                    Format(objFolder.Size, "0,0"); _
                    " Byte"

    'オブジェクトを開放
    Set objDriveSystem = Nothing
    Set objFolder = Nothing

End Sub
　　

◆実行結果

イミディエイトウィンドウ



▼ページトップへ