サブフォルダのサイズを算出する

メモです。
指定したパスのサブフォルダの各サイズを算出する方法です。

Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")

Dim path As String
path = "検索したいフォルダのパスを記載"

Dim f As Variant
For Each f In FSO.GetFolder(path).SubFolders

    ws.Cells(rowIdx, 1) = FSO.GetFolder(f).Name
    ws.Cells(rowIdx, 2) = FSO.GetFolder(f).Size
Next f
Set FSO = Nothing

今回の処理ではFileSystemObjectオブジェクトを使用しています。
FileSystemObjectオブジェクトは、フォルダやファイルなどを操作できるオブジェクトです。
1,2行目でCreateObjectメソッドを使ってFileSystemObjectのオブジェクトのインスタンスを作成しています。
それを使用してサブフォルダのアイテムを取得してそれぞれの名前とサイズを求めています。