下位フォルダーを含めたファイルリストを作成する : 再帰処理

指定フォルダーとその下位フォルダーにあるファイルのリストを配列に格納するマクロです。これには、再帰処理を使いますが、慣れないと混乱しがちな構造なので例示しながら解説していきます。

再帰処理とは分身を作ること

プロシージャは、処理の途中で自分自身を呼び出すことができます。自分を呼び出すと、分身を作って同じ処理をさせられます。この呼び出しを「再帰呼び出し」といい、再帰呼び出しを使った処理を「再帰処理」といいます。

深さや要素数が特定できない階層やグループ構造を持つデータを扱う際の定番の処理です。

プロシージャには1つの階層内を処理する機能を持たせます。階層内に下位階層があれば分身を作って処理をさせます。必要になったら分身を作ればよいので、階層数が不特定のデータに対応できるという仕掛けです。分身の処理が終わると、呼び出し元に帰って処理を継続します。

以下のフォルダー・ファイルで再帰処理を行う場合の遷移を説明します。

本体プロシージャは、フォルダー(A) 内を担当
下位フォルダー(B) が見つかったので分身1号にパス(再帰呼び出し)
分身1号は、フォルダー(B) 内を担当
下位フォルダー(E) が見つかったので分身2号にパス(再帰呼び出し)
分身2号は、フォルダー(E) 内を担当
→ 下位フォルダーなし → ファイル[H] を処理
分身2号退場。分身1号に帰る
分身1号は、担当フォルダー(B) 内の処理を継続
→ ほかに下位フォルダーなし → ファイル[F]、[G] を処理
分身1号退場。本体プロシージャに帰る
本体プロシージャは、担当フォルダー(A) 内の処理を継続
→ ほかに下位フォルダーなし → ファイル[C]、[D] を処理
本体の処理終了

ファイルリストを配列に格納するマクロ

'呼び出し元のプロシージャ
Dim aryFile() As String  'ファイル名を格納する動的配列
Dim cnt As Long  '検出ファイルのカウント
Const pathFolder As String = "D:\test"

cnt = 0
f_getFileArray pathFolder, aryFile, cnt

'各ファイル（配列aryFileの要素）を処理 ======

'要参照設定: Microsoft Scripting Runtime
Function f_getFileArray(aPath As String, aryFile() As String, cnt As Long)

  Dim oFS As New FileSystemObject
  Dim oFile As File
  Dim oFolder As Folder

  'サブフォルダーの処理: 再帰呼び出し
  For Each oFolder In oFS.GetFolder(aPath).SubFolders
     f_getFileArray oFolder.Path, aryFile, cnt
  Next

  'ファイルの処理: サイズ1MB以上のファイルを配列に追加
  For Each oFile In oFS.GetFolder(aPath).Files
    If oFile.Size > 1000000 Then
      cnt = cnt + 1
      ReDim Preserve aryFile(1 To cnt)
      aryFile(cnt) = oFile.Path
    End If
  Next

  Set oFile = Nothing
  Set oFolder = Nothing
  Set oFS = Nothing
End Function