Dir関数で全サブフォルダの全ファイルを取得
指定フォルダ以下の全サブフォルダ内の全ファイルを取得する場合、
通常はFileSystemObjectの再帰モジュールで実現しますが、
これをDir関数だけで、かつ、再帰ではなく二重ループで実現しています。
FileSystemObjectの再帰プロシージャーについては、
こちらをご覧ください。
Dir関数でサブフォルダも含むファイル一覧を取得するVBA
Function GetFileList(ByVal argDir As String) As String()
Dim i As Long
Dim aryDir() As String
Dim aryFile() As String
Dim strName As String
ReDim aryDir(i)
aryDir(i) = argDir '引数のフォルダを配列の先頭に入れる
'まずは、指定フォルダ以下の全サブフォルダを取得し、配列aryDirに入れます。
i = 0
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
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
GetFileList = aryFile
End Function
ファイル一覧を取得するVBAの使用例と解説
Sub sample()
Dim v As Variant
v = GetFileList("指定フォルダ")
End Sub
先のVBA関数では、引数のフォルダ以下にある、全サブフォルダが、配列aryDirに入ります。
aryDir(0)には、最初の指定フォルダを入れています。
これは、その後の処理を書きやすくする為と、指定フォルダ直下のファイルも一緒に取得する為に入れています。
この指定は、通常のファイルだけが対象なら、指定の必要はありません。
実務としては、それぞれの何らかの条件を指定して取得する等の処理になる場合が多いかもしれません。
それでも、FileSystemObjectを何らかの理由で使いたくない場合には、参考になると思います。
また、配列の使い方とロジックの組み立てについて、参考にしてもらえればと思います。
Dir関数の関連記事
第79回.ファイル操作Ⅰ（Dir）｜VBA入門
同じテーマ「マクロVBAサンプル集」の記事
1次元配列の並べ替え（バブルソート,挿入ソート,クイックソート）
2次元配列の並べ替え（バブルソート,クイックソート）
Dir関数で全サブフォルダの全ファイルを取得
順列の全組み合わせ作成と応用方法
スピルに対応したXSPLITユーザー定義関数（文字区切り）
新着記事NEW ・・・新着記事一覧を見る
ピッボットテーブルって便利だよね｜還暦のVBA(2021-10-18)
還暦のVBA：VBAまでたどりつけるか… (2021-09-29)
VLOOKUPを使うことを基本としてシートを設計すべきか｜エクセル雑感(2021-08-17)
コンピューターはブラックボックスで良い｜エクセル雑感(2021-08-14)
小文字"abc"を大文字"ABC"に変換する方法｜エクセル雑感(2021-08-13)
ADOでテキストデータを集計する｜VBAサンプル集(2021-08-04)
VBA学習のお勧めコース｜エクセル雑感(2021-08-01)
エクセル馬名ダービー｜エクセル雑感(2021-07-21)
在庫を減らせ！毎日棚卸ししろ！｜エクセル雑感(2021-07-05)
日付型と通貨型のValueとValue2について｜エクセル雑感(2021-06-26)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.繰り返し処理（For Next)｜VBA入門
3.RangeとCellsの使い方｜VBA入門
4.変数宣言のDimとデータ型｜VBA入門
5.Excelショートカットキー一覧｜Excelリファレンス
6.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
7.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
8.並べ替え（Sort）｜VBA入門
9.マクロって何？VBAって何？｜VBA入門
10.エクセルVBAでのシート指定方法｜VBA技術解説
- ホーム
- マクロVBA応用編
- マクロVBAサンプル集
- Dir関数で全サブフォルダの全ファイルを取得
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。