|
▼candle さん:
アップしたコードは親フォルダ->子フォルダの関連での処理をしていますが
これを、親フォルダ->子フォルダ->孫フォルダに、コード的にも階層を1つ追加すればよろしいかと。
実際の環境をつくっての確認はしていませんのでバグあればご容赦ください。
Sub Sample2()
Dim fso As Object
Dim x As Long
Dim pfold As Object
Dim cfold As Object
Dim mfold As Object
Dim cnt As Long
Columns("A:B").ClearContents
Set fso = CreateObject("Scripting.FileSystemObject")
For Each pfold In fso.getfolder("c:\フォルダ個数").subfolders
For Each cfold In pfold.subforders
x = x + 1
cnt = 0
Range("A" & x).Value = cfold.Name
For Each mfold In cfold.subfolders
cnt = cnt + 1
Next
Range("B" & x).Value = cnt
Next
Next
End Sub
|
|