VBA サブフォルダ内のファイル取得

Question

VBAで以下のようなファイル構造でサブフォルダ内のファイルを取得する場合での質問です。

Folder1－－－－－－エクセルファイル1(Folder1の中)
エクセルファイル2(Folder1の中)
Folder2(Folder1の中)－－－－－－－－エクセルファイル3(Folder2の中)
Folder3(Folder1の中)－－－－－－－－エクセルファイル4(Folder3の中)
Folder4(Folder3の中)－－－－－－エクセルファイル5(Folder4の中)

Folderの中にエクセルファイルが2つ、Folder2とFolder3が1つづつ
そのFolder2の中にエクセルファイルが1つ、Folder3の中にエクセルファイルが１つ、Folder4が1つ
Folder4の中にエクセルファイルが1つ
という構造です

エクセルファイル1～5を取得する場合、どのような実装をしたらいいのか分かりません。
ループで回すにも、途中でフォルダが2つに分かれたりなど悩みます。
ご教授お願いします。

現在は、For Eachを使ってFolder2とFolder3のパスを取得した段階です

    TargetDir = "C:\Users***-***\Documents\Document"
    Set Folder = Fso.GetFolder(TargetDir)

    For Each Subf In Folder.SubFolders
      Subfolder = Subf.Path
      MsgBox Subfolder
    Next

Answer 1

フォルダーが固定ではなく、また、階層数も決まっていないとなると再帰呼び出しになりますね。

例えば、下記とか。

サブフォルダを含めてファイル一覧を取得する（Dir関数の再帰呼び出し）：Excel VBA｜即効テクニック｜Excel VBAを学ぶならmoug

FileSystemObjectを使うなら下記の後半にサンプルがあります。

Office TANAKA - Excel VBA Tips[ファイルを検索する]

Comments

[yakumo02]

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

Answer 2

本件は、hatena19さんが紹介されているようにfileSystem使って再帰
というのがオーソドックスなのですが、最近私はDOSのdirコマンド
使っています。割合手軽なので紹介します。

  '
  ' ▼dirコマンドを発行して結果をtxtに格納。
　' ※rootに先頭フォルダを指定する  
  '
  Dim root As String: root = "Z:\D\work*.xls*"   ' パス+ファイル(*.xls*)指定
' Dim root As String: root = "Z:\D\work"          ' パス指定
  
  Dim wSh As Object: Set wSh = CreateObject("WScript.Shell")
  Dim wEx As Object: Set wEx = wSh.exec("%ComSpec% /c Dir """ & root & """ /s /b")
  Dim txt As String: txt = wEx.StdOut.ReadAll
  Set wEx = Nothing
  Set wSh = Nothing
  '
  ' ▼1行ごと配列に分解。※ファイル名はフルパスで入っている。
  '
  Dim fNs As Variant
  fNs = Split(txt, vbCrLf)

要するにdirコマンドを /s /b オプションつきで発行して行ごとに分解
しているだけです。
・フォルダ/ファイル数が多いと少し時間のかかることがあります。
・dirコマンドのオプション等については、DOSのdirコマンドの使用方法を
調べてください。

Comments

[yakumo02]

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