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で導関数を求めよ」ツイッターのお題をやってみた｜エクセル雑感（2月9日）
Property {Get|Let|Set} ステートメント｜VBA入門（2月9日）
フィボナッチ数列（再帰呼び出し）｜VBA技術解説（2月8日）
エクセルで連立方程式を解く（MINVERSE,MMULT）｜エクセル雑感（2月7日）
スピルって速いの?スピルの速度について｜VBA技術解説（2月4日）
スピルでVBAの何が変わったか｜VBA技術解説（2月3日）
スピルについて｜エクセル入門（2月3日）
エクセルで「もういくつ寝るとお正月」｜エクセル雑感（1月29日）
VBAの少数以下の演算誤差について｜VBA技術解説（1月29日）
VBAで写真の撮影日時や音楽動画の長さを取得する｜VBA技術解説（1月23日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
4.マクロって何？VBAって何？｜VBA入門
5.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
6.変数宣言のDimとデータ型｜VBA入門
7.繰り返し処理（For Next)｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.空白セルを正しく判定する方法（IsEmpty,IsError,HasFormula）｜VBA技術解説
10.ひらがな⇔カタカナの変換｜エクセル基本操作
- ホーム
- マクロVBA
- マクロVBAサンプル集
- Dir関数で全サブフォルダの全ファイルを取得
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。