概要：Dir関数とは何か、そしてなぜそれが「地雷」になり得るのか
Excel VBAにおいて、ファイル操作やフォルダ内のファイル列挙を行う際、最も手軽で広く使われているのが「Dir関数」です。初心者向けの入門書では、決まって「フォルダ内のファイル一覧を取得する方法」として紹介される定番の関数です。しかし、中級者から上級者へとステップアップする過程で、多くのプログラマーがDir関数の限界に直面し、頭を抱えることになります。
Dir関数の最大の特徴は、その「静的な状態保持」にあります。関数自体が内部的にメモリを持ち、前回呼び出されたときの情報を保持し続けることで、次々とファイル名を返却する仕組みです。この構造こそが、シンプルさを生む一方で、実務における複雑な処理において致命的なバグの温床となるのです。本稿では、Dir関数が抱える技術的制限を深く掘り下げ、なぜ現代のVBA開発において「使用を控えるべき」とされているのか、そして代わりとなるべき「FileSystemObject」を用いた堅牢な実装手法について解説します。
詳細解説：Dir関数の構造的欠陥と「再入不可能性」の闇
Dir関数が抱える最大の問題は、「再入不可能（Not Reentrant）」であるという点です。これは、コンピュータサイエンスの観点から見れば非常に危険な仕様です。
Dir関数は、実行時に「現在の検索対象フォルダ」や「検索条件」といった情報を、OSレベルの共有メモリ領域に近い場所に保持します。例えば、あるフォルダ内のファイルをループ処理している最中に、別のプロシージャや別のループでDir関数を呼び出してしまうと、現在の検索状態が強制的に上書きされてしまいます。その結果、元のループ処理は「どこまで検索したか」という情報を失い、無限ループに陥ったり、予期せぬファイル名を取得したり、あるいは実行時エラーが発生したりします。
さらに、Dir関数には「ファイル名の文字コードやパスの長さ制限」というOS依存の制約も無視できません。特に、深い階層にあるフォルダや、特殊文字を含むファイル名、あるいはネットワークドライブ上の長大なパス名に対してDir関数を実行すると、期待通りの挙動を示さないケースが多々あります。
また、Dir関数は「再帰的な処理（サブフォルダの探索）」を標準でサポートしていません。サブフォルダの中まで探索するには、自前で再帰関数を書く必要がありますが、その際にDir関数を使用すると、前述の「状態の上書き」問題により、再帰処理が確実に崩壊します。これが、多くの開発者が「Dir関数での再帰探索」に挑戦して挫折する最大の理由です。
サンプルコード：Dir関数の限界を突破するFileSystemObjectの活用
Dir関数の制限を回避し、現代的なVBA開発で推奨される手法が「FileSystemObject（FSO）」の使用です。FSOはオブジェクト指向の考え方に基づいて設計されており、各フォルダやファイルが独立したオブジェクトとして管理されます。これにより、複数のループを同時に回しても、あるいは再帰的に階層を掘り下げても、状態が競合することはありません。
以下に、Dir関数では実装が困難な「再帰的な全ファイルリストアップ」のコード例を示します。
' 参照設定不要でFSOを使用するための遅延バインディング例
Sub ListFilesRecursively()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
' 探索開始パス
Dim targetFolder As Object
Set targetFolder = fso.GetFolder("C:\Users\Example\Documents")
' 再帰処理の呼び出し
ProcessFolder targetFolder, fso
Set fso = Nothing
End Sub
Sub ProcessFolder(ByVal folder As Object, ByRef fso As Object)
Dim file As Object
Dim subFolder As Object
' 現在のフォルダ内のファイルを処理
For Each file In folder.Files
Debug.Print file.Path
Next file
' サブフォルダを再帰的に処理
For Each subFolder In folder.SubFolders
ProcessFolder subFolder, fso
Next subFolder
End Sub
このコードを見ていただければ分かる通り、FSOを用いることで、Dir関数の「状態保持」という制約から完全に解放されます。`For Each` ループを用いることで、コードの可読性も劇的に向上し、メンテナンス性も確保されます。
実務アドバイス：なぜ「あえてDir関数」を使う必要があるのか、その判断基準
ここまでDir関数の欠点を指摘してきましたが、ではDir関数は「完全に不要なゴミ」なのでしょうか。答えは「ノー」です。ベテランエンジニアとして、Dir関数を適切に使い分ける判断基準を共有します。
1. Dir関数が適しているケース：
– 単純なフラットなフォルダ内のファイル存在確認（例：特定のファイルがあるかチェックするだけ）
– 数十個程度の少ないファイル処理
– 非常に古い環境や、オブジェクト生成のオーバーヘッドすら許容できない極限のパフォーマンスが求められる環境
2. FSOを導入すべきケース：
– サブフォルダを含む深い階層の探索
– 複数のプロシージャが連動する複雑な業務アプリケーション
– ファイルの更新日時、属性、サイズなどを詳細に取得し、条件分岐を行う場合
– チーム開発（誰が読んでも理解できるコードを維持する必要がある場合）
実務において、技術の選定は「慣れ」ではなく「リスク管理」で行うべきです。Dir関数は、小規模なツール作成には最適ですが、一度構築したら長期間運用される業務自動化ツールにおいては、その脆弱性が将来的な保守コストを増大させます。「とりあえず動く」から「ずっと安全に動く」コードへの転換こそが、プロのVBAエンジニアに求められるスキルです。
まとめ：Dir関数の限界を知り、次のステップへ
本稿では、VBA開発において避けては通れない「Dir関数の闇」について解説しました。Dir関数は、プログラミング言語としてのVBAの歴史を感じさせるクラシックな機能ですが、その仕様は現代の複雑なファイルシステム管理には適していません。
再入不可能性という技術的制約は、大規模開発になればなるほど、発見困難なバグとして牙を剥きます。一方で、FileSystemObjectは、現代のオブジェクト指向開発の恩恵をVBAの世界に持ち込んでくれる強力なツールです。
皆さんが現在開発しているツールが、Dir関数で書かれているなら、まずは「なぜこのループはここで止まるのか？」「なぜこのファイルが見つからないのか？」といったエラーログを振り返ってみてください。その答えの多くは、Dir関数の仕様にあります。より堅牢で、拡張性が高く、そして何より「書いていて楽しい」コードを目指すのであれば、今日からDir関数の使用を最小限に留め、FileSystemObjectへの移行を積極的に検討してください。
VBAは古くからある言語ですが、その使いこなし方次第で、どれほど巨大な業務システムにも耐えうる強力な武器となります。技術的な限界を正しく理解し、適切なツールを選択する。その判断力こそが、あなたを単なる「VBAが使える人」から「VBAの専門家」へと昇華させるのです。
