食っちゃ寝システムができるまで

「食っちゃ寝システム」ができるまでの、棚卸&備忘録です。

VBA使用頻度の高いコード(19):フォルダ数カウント & フォルダ名出力

f:id:taikobox:20181209173448p:plain

フォルダ数カウント & フォルダ名出力

フォルダ数カウント & フォルダ名出力マクロ。


===============================

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

===============================