VBAであるフォルダにあるフォルダを取得

質問

VBA初心者です。
フォルダの階層を下に掘ってパスの文字列を生成したいのですが
あるフォルダの中にある全てのフォルダ名前を取得するにはどうしたらいいのですか？

回答No.1

nda23 · ベストアンサー

FileSystemObjectを使う方法がよいかと思います。

Sub メイン(ByVal パス As String)
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
列挙 FSO.GetFolder(パス)
End Sub

Sub 列挙(フォルダ As Object)
Dim サブフォルダ　As Object
For Each サブフォルダ In フォルダ.SubFolders
　　　　Debug.Print サブフォルダ.Path '★
　　　　列挙 サブフォルダ
Next
End Sub

出力はイミディエイトウィンドウにしています(★)が、
ファイルなど、別の場所への出力も可能です。

お礼

詳細なステップまで教えていただきありがとうございます。

ソースを修正して試したところ正常に動きました。

本当にありがとうございました！！