メモです。 指定したパスのサブフォルダの各サイズを算出する方法です。 Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") Dim path As String path = "検索したいフォルダのパスを記載" Dim f As Variant For Each f In FSO.GetFol…