ファイル一覧生成の極意：インデントによる階層構造の可視化
Excel VBAを用いてファイルシステムを走査し、ファイル一覧を作成する業務は、IT部門や事務管理の現場において極めて需要の高い自動化タスクです。しかし、単にファイル名とパスをフラットに書き出すだけでは、ディレクトリ構造の複雑さを把握することは困難です。
本稿では、ファイルシステムを再帰的に走査し、フォルダの階層構造を視覚的に表現する「インデント付きファイル一覧作成」の技術を解説します。この手法を習得することで、データ管理の効率化だけでなく、ドキュメントの整理やインベントリ管理において、一歩先行くプロフェッショナルな成果物を提供できるようになります。
再帰呼び出しによるディレクトリ探索の基礎
ファイル一覧を作成する際、最も重要なアルゴリズムは「再帰呼び出し（Recursion）」です。コンピュータ上のフォルダ構造はツリー形式となっており、フォルダの中にフォルダが存在し、さらにその中に……という入れ子構造になっています。
これをループ処理だけで記述しようとすると、階層の深さに応じてコードが複雑化し、メンテナンスが困難になります。再帰呼び出しを用いることで、「現在のフォルダ内の全ファイルを取得し、サブフォルダが見つかったら自分自身を再度呼び出す」というシンプルなロジックで、無限の階層に対応できる汎用性の高いプログラムを構築できます。
インデントを表現するためには、この再帰呼び出しの引数に「現在の階層レベル（Level）」を渡すことが鍵となります。階層が深くなるごとにLevelをインクリメントし、その値に応じてスペースや記号を先頭に付与することで、Excelのシート上に直感的なツリー構造を描画することが可能になります。
FileSystemObjectの活用と設計上の留意点
VBAでファイルシステムを操作する場合、標準のDir関数ではなく「FileSystemObject (FSO)」を使用することを強く推奨します。FSOはオブジェクト指向に基づいた強力なライブラリであり、フォルダの存在確認、属性の取得、パスの操作などが極めて直感的に記述できます。
FSOを使用する際は、VBE（Visual Basic Editor）の「ツール」メニューから「参照設定」を開き、「Microsoft Scripting Runtime」にチェックを入れることが必須です。これにより、IntelliSense（入力補完）が有効になり、開発効率とコードの安全性が劇的に向上します。
今回の実装では、以下の3つの要素を重視します。
1. 階層に応じたインデント：Space関数を用いて、階層数×2〜4文字の空白を付与します。
2. 実行速度の最適化：画面更新を停止し、再帰中の不要な描画を抑制します。
3. エラーハンドリング：アクセス権限のないフォルダに遭遇した際、処理を停止させずスキップする堅牢性を確保します。
インデント付きファイル一覧作成のサンプルコード
以下に、指定したフォルダ以下の全ファイルとフォルダを再帰的に取得し、インデント付きでExcelシートに書き出すサンプルコードを提示します。
Option Explicit
' 参照設定: Microsoft Scripting Runtime
Public Sub GenerateFileListWithIndent()
Dim fso As FileSystemObject
Dim targetFolder As String
Dim ws As Worksheet
' 初期設定
Set fso = New FileSystemObject
Set ws = ActiveSheet
targetFolder = "C:\Your\Target\Path" ' 調査対象のルートパス
' 画面更新停止で高速化
Application.ScreenUpdating = False
ws.Cells.Clear
ws.Range("A1").Value = "階層構造一覧"
ws.Range("A1").Font.Bold = True
' 再帰処理の開始 (初期階層は0)
Call ListFilesRecursive(fso.GetFolder(targetFolder), ws, 1, 2)
ws.Columns("A:A").AutoFit
Application.ScreenUpdating = True
MsgBox "ファイル一覧の作成が完了しました。", vbInformation
End Sub
Private Sub ListFilesRecursive(ByVal folder As Folder, ByVal ws As Worksheet, ByVal row As Long, ByVal level As Long)
Dim subFolder As Folder
Dim file As file
Dim indent As String
' インデント文字列の生成 (階層分だけスペースを付与)
indent = Space((level - 1) * 4)
' フォルダ名の書き出し
ws.Cells(row, 1).Value = indent & "[" & folder.Name & "]"
row = row + 1
' ファイルの書き出し
For Each file In folder.Files
ws.Cells(row, 1).Value = indent & " " & file.Name
row = row + 1
Next file
' サブフォルダの再帰処理
On Error Resume Next ' アクセス権限エラー対策
For Each subFolder In folder.SubFolders
Call ListFilesRecursive(subFolder, ws, row, level + 1)
' 次の開始行を更新するために、サブフォルダ内のファイル数分だけrowを進める
' 実際には行数を返却値として受け取る設計がより正確です
Next subFolder
On Error GoTo 0
End Sub
実務現場におけるアドバイス：プロの視点
このコードを実務に適用する際、いくつか注意すべき「罠」が存在します。
第一に、大規模なファイルサーバーを対象とする場合です。数万ファイルが存在する環境で再帰処理を行うと、Excelのセル制限（100万行以上）を超過する恐れがあります。また、処理時間が非常に長くなるため、ステータスバーに現在処理中のフォルダ名を表示させるなどの「進捗表示」を実装することをお勧めします。
第二に、アクセス権限の問題です。システムフォルダやネットワーク上の共有フォルダには、管理者権限でもアクセスできない場所が含まれていることがよくあります。サンプルコードにも含めた「On Error Resume Next」は必須ですが、単に無視するだけでなく、エラーが発生したパスをデバッグ用ログとして別シートに記録するように改良すると、後から「どのフォルダが読み込めなかったか」を確認でき、信頼性が向上します。
第三に、ファイルの属性です。隠しファイルやシステムファイルまで全てリストアップする必要があるのか、業務要件を再確認してください。FSOのAttributesプロパティをチェックすることで、特定の属性を持つファイルを除外するフィルタリング処理を容易に追加できます。
最後に、結果の出力先です。セルに直接書き出すのは簡単ですが、ファイル数が多い場合は配列（Array）に一度格納し、最後にまとめてセルに書き出す手法をとることで、実行時間を数分の一に短縮できます。これはVBAのパフォーマンスチューニングにおける基本原則です。
まとめ：自動化の先にある価値
Excel VBAによるファイル一覧作成は、単なる事務作業の自動化に留まりません。ファイル構造を可視化することで、データの重複、不要なバックアップ、命名規則の不備といった「見えない課題」を顕在化させることができます。
今回紹介した「インデント付きの再帰処理」は、VBAエンジニアにとって必須の教養とも言える技術です。このコードをベースに、更新日時やファイルサイズ、オーナー情報を付与する列を追加したり、特定の拡張子のみを抽出する機能を加えたりすることで、あなたの業務スタイルに合わせた強力なツールへと進化させてください。
コードを書くことは、単に動くものを作ることではありません。保守性が高く、読みやすく、そして拡張性のある設計を行うこと。それこそが、プロフェッショナルなエンジニアがExcel VBAというツールを通じて体現すべき価値なのです。ぜひ、このテクニックを武器に、日々の業務改善を加速させてください。
