Dir関数で全サブフォルダの全ファイルを取得
指定フォルダ以下の全サブフォルダ内の全ファイルを取得する場合、
FileSystemObjectの再帰モジュールについては、
こちらをご覧ください。
Sub sample()
Dim i As Long
Dim aryDir() As String
Dim aryFile() As String
Dim strName As String
i = 0
ReDim aryDir(i)
aryDir(i) = ThisWorkbook.Path 'フォルダをここで指定
'まずは、指定フォルダ以下の全サブフォルダを取得し、配列aryDirに入れます。
Do
strName = Dir(aryDir(i) & "\", vbDirectory)
Do While strName <> ""
If GetAttr(aryDir(i) & "\" & strName) And vbDirectory Then
If strName <> "." And strName <> ".." Then
ReDim Preserve aryDir(UBound(aryDir) + 1)
aryDir(UBound(aryDir)) = aryDir(i) & "\" & strName
End If
End If
strName = Dir()
Loop
i = i + 1
If i > UBound(aryDir) Then
Exit Do
End If
Loop
'配列aryDirの全フォルダについて、ファイルを取得し、配列aryFileに入れます。
ReDim aryFile(0)
For i = 0 To UBound(aryDir)
strName = Dir(aryDir(i) & "\", vbNormal + vbHidden +
vbReadOnly + vbSystem)
Do While strName <> ""
If aryFile(0) <> "" Then
ReDim Preserve aryFile(UBound(aryFile) + 1)
End If
aryFile(UBound(aryFile)) = aryDir(i) & "\" & strName
'実行結果が分かりやすいように、テスト的にセルに書き出す場合
'Cells(UBound(aryFile) + 1, 1) = aryFile(UBound(aryFile))
strName = Dir()
Loop
Next
End Sub
上記では、ThisWorkbook.Path以下にある、全サブフォルダが、配列aryDirに入ります。
同じテーマ「マクロVBAサンプル集」の記事
1次元配列の並べ替え（バブルソート,クイックソート）
2次元配列の並べ替え（バブルソート,クイックソート）
Dir関数で全サブフォルダの全ファイルを取得
順列の全組み合わせ作成と応用方法
新着記事NEW ・・・新着記事一覧を見る
VBAコードの全プロシージャー・プロパィ一覧を取得｜VBAサンプル集（10月12日）
VBAでエラー行番号を取得できるErl関数｜VBA技術解説（10月12日）
手動計算時の注意点と再計算方法｜ExcelマクロVBA技術解説（10月9日）
引数の数を可変にできるパラメーター配列（ParamArray）｜VBA入門（10月7日）
VBEの使い方：デバッグ｜ExcelマクロVBA入門（10月6日）
VBAにおける配列やコレクションの起点について｜VBA技術解説（10月5日）
VBEの使い方：オブジェクト ブラウザー｜VBA入門（10月5日）
VBEの使い方：ウォッチ ウィンドウ｜VBA入門（10月4日）
VBEの使い方：ローカル ウィンドウ｜VBA入門（10月3日）
VBEの使い方：イミディエイト ウィンドウ｜VBA入門（10月2日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.RangeとCellsの使い方｜ExcelマクロVBA入門
4.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
5.変数とデータ型（Dim）｜ExcelマクロVBA入門
6.繰り返し処理（For Next)｜ExcelマクロVBA入門
7.マクロって何？VBAって何？｜ExcelマクロVBA入門
8.ひらがな⇔カタカナの変換｜エクセル基本操作
9.空白セルを正しく判定する方法（IsEmpty,IsError,HasFormula）｜VBA技術解説
10.セルに文字を入れるとは（Range,Value）｜VBA入門
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。