VBA使用頻度の高いコード(19):フォルダ数カウント & フォルダ名出力
フォルダ数カウント & フォルダ名出力
フォルダ数カウント & フォルダ名出力マクロ。
===============================
Sub フォルダー数カウント()
Dim TargetDir As String
Dim SubCount As Long
Dim i As Integer
Dim Photolist As Long
TargetDir = ThisWorkbook.Path ’ファイルのあるフォルダ
With CreateObject("Scripting.FileSystemObject")
SubCount = .GetFolder(TargetDir).SubFolders.Count
End With
'フォルダー数入力
Range("G1") = SubCount
End Sub
===============================
Sub フォルダーリスト出力()
Dim TargetDir As String
Dim f As Object
Dim cnt As Long
Dim Obj As Object
Set Obj = CreateObject("Scripting.FileSystemObject")
' フォルダ名をシート上に出力する為のカウンタ
cnt = 0
TargetDir = ThisWorkbook.Path & "¥フォルダ名"
' 「C:\Sample」フォルダ配下に存在するフォルダを一つずつ参照する。
For Each f In Obj.GetFolder(TargetDir).SubFolders
' フォルダ名をシート上に出力する。
Range("A6").Offset(cnt, 0).Value = Obj.GetFolder(f).Name
cnt = cnt + 1
Next f
' オブジェクトを破棄する。
Set Obj = Nothing
Set f = Nothing
End Sub
===============================