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を何らかの理由で使いたくない場合には、参考になると思います。
また、配列の使い方とロジックの組み立てについて、参考にしてもらえればと思います。
同じテーマ「マクロVBAサンプル集」の記事
1次元配列の並べ替え（バブルソート,挿入ソート,クイックソート）
2次元配列の並べ替え（バブルソート,クイックソート）
Dir関数で全サブフォルダの全ファイルを取得
順列の全組み合わせ作成と応用方法
スピルに対応したXSPLITユーザー定義関数（文字区切り）
新着記事NEW ・・・新着記事一覧を見る
Variantの数値型と文字列型の比較｜エクセル雑感（7月1日）
VBAのVariant型について｜VBA技術解説（6月30日）
VBAのString型の最大文字数について｜エクセル雑感（6月20日）
VBAで表やグラフをPowerPointへ貼り付ける｜VBAサンプル集（6月19日）
アクティブシート以外の表示(Window)に関する設定｜VBA技術解説（6月17日）
マクロ記録での色のマイナス数値について｜エクセル雑感（6月16日）
ツイッター投稿用に文字数と特定文字で区切る｜エクセル雑感（6月15日）
日付の謎：IsDateとCDate｜エクセル雑感（6月14日）
IFステートメントの判定｜エクセル雑感（6月13日）
インクリメンタルサーチの実装｜ユーザーフォーム入門（6月12日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.マクロって何？VBAって何？｜VBA入門
5.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
6.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
7.繰り返し処理（For Next)｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.とにかく書いてみよう（Sub,End Sub）｜VBA入門
10.マクロはどこに書くの（VBEの起動）｜VBA入門
- ホーム
- マクロVBA応用編
- マクロVBAサンプル集
- Dir関数で全サブフォルダの全ファイルを取得
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。