メモです。 指定したパスのサブフォルダの各サイズを算出する方法です。 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).…
