概要
Excel VBAを用いて業務を自動化する際、避けては通れないのが外部ファイルとの連携です。「特定のフォルダ内の全CSVファイルを取り込みたい」「バックアップフォルダに古いファイルを移動させたい」といった要件において、最も基本的かつ強力な武器となるのがDir関数です。Dir関数は、指定したパスやパターンに一致するファイル名やフォルダ名を返す関数であり、ループ処理と組み合わせることでディレクトリ内のファイルを一括操作することが可能です。本稿では、Dir関数の基本構文から、実務で頻出する応用テクニック、そして注意すべき落とし穴までを網羅的に解説します。
詳細解説：Dir関数のメカニズム
Dir関数は、Windowsのファイルシステムと直接対話するための関数です。その最大の特長は、メモリ上にファイル情報のリストを保持し、関数を繰り返し呼び出すことで次のファイル名を取得する「状態保持型の関数」であるという点です。
基本構文は以下の通りです。
Dir[(pathname, [attributes])]
第一引数のpathnameには、検索対象のパスやワイルドカード（*や?）を指定します。重要なのは、最初の呼び出し時のみpathnameを指定し、二回目以降の呼び出しでは引数を空にして呼び出すという点です。これにより、Dir関数は「次のファイル」を探索し、対象がなくなると空文字(“”)を返します。
属性（attributes）引数を指定することで、通常のファイルだけでなく、隠しファイルやシステムファイル、あるいはサブディレクトリのみを抽出することも可能です。
サンプルコード：実務で使えるファイル一覧取得
以下に、指定したフォルダ内のExcelファイルをすべて取得し、イミディエイトウィンドウに出力する標準的なコードを提示します。
Sub ListFiles()
Dim folderPath As String
Dim fileName As String
' フォルダパスの指定（末尾に必ず\を付ける）
folderPath = "C:\Users\TargetFolder\"
' 最初のファイルを取得
fileName = Dir(folderPath & "*.xlsx")
' ファイルが見つかる限りループ
Do While fileName <> ""
Debug.Print "ファイル名: " & fileName
' 次のファイルを取得（引数は空にする）
fileName = Dir()
Loop
End Sub
このコードのポイントは、Do Whileループ内でのDir関数の呼び出し方です。引数を空にすることで、システムが内部的に保持している「次のファイル」へのポインタが移動します。
応用テクニック：サブフォルダの探索と再帰処理
Dir関数単体では、サブフォルダの中身まで自動的に探索する機能はありません。もし階層構造を走査したい場合は、「再帰処理」を組み合わせる必要があります。あるいは、Windowsのファイルシステムオブジェクト（FSO）と使い分けるのが賢明です。
しかし、Dir関数にはFSOにはない「圧倒的な実行速度」というメリットがあります。大量のファイルを処理する場合、Dir関数を使用した方がプログラムの実行時間は確実に短縮されます。再帰処理と組み合わせる際は、Dir関数が内部で保持するポインタの状態に注意が必要です。Dir関数は入れ子（ネスト）にして使用すると、ポインタが上書きされてしまい、意図しない動作を引き起こす可能性があるためです。この場合は、一度取得したファイル名を配列に格納してから処理を行うのが安全です。
実務アドバイス：Dir関数の落とし穴と回避策
ベテラン講師として、実務現場でよく見かける「Dir関数の罠」を共有します。
1. パス区切り文字の欠落
Dir関数の引数に渡す文字列の末尾に「\」が含まれていないと、検索が正しく行われません。連結時に必ず「& “\” &」を記述する習慣をつけましょう。
2. 属性引数の指定ミス
デフォルトでは、Dir関数は「読み取り専用ファイル」や「隠しファイル」を無視する場合があります。もしすべてのファイルを取得したい場合は、vbNormal, vbHidden, vbSystem, vbReadOnlyを組み合わせて指定する必要があります。
3. ネットワークドライブの遅延
ネットワーク上の共有フォルダに対してDir関数を実行すると、ファイルの更新状況の反映にタイムラグが生じることがあります。非常に厳密な整合性が求められる場合には、FSOのFileExistsメソッドを併用するなどの工夫が必要です。
4. 処理の中断と再開
ループの途中でExit Sub等を使って処理を強制終了した場合、Dir関数の内部状態が残ったままになることがあります。再度同じDir関数を呼び出すと、前回の続きから検索が始まってしまう可能性があります。これをリセットするには、一度異なるパスでDir関数を呼び出すか、処理を完全に完結させる設計にする必要があります。
なぜ今、Dir関数なのか？
現代のVBA開発では、FileSystemObject（FSO）を使うのが主流という意見もあります。確かにFSOはオブジェクト指向で扱いやすく、機能も豊富です。しかし、Dir関数はVBAの標準機能として組み込まれており、外部参照設定が不要で、かつメモリ消費量も極めて少ないという利点があります。
特に、数万件単位のファイル名を処理する場合、FSOのインスタンス生成にかかるオーバーヘッドは無視できません。VBAで「高速なプログラム」を組むことは、ユーザーのストレスを軽減し、業務効率を劇的に改善します。Dir関数の挙動を熟知していることは、単なる知識ではなく、プロフェッショナルとしての「処理の最適化」を追求する姿勢そのものなのです。
まとめ
Dir関数は、シンプルながらも非常に奥が深い関数です。
・最初の呼び出しにはパスを指定し、以降は空の引数でループを回す。
・ループ構造を理解し、ポインタの管理を意識する。
・処理速度が求められる現場では、FSOよりもDir関数が有効な場合が多い。
これらの要点を押さえることで、あなたのVBAスキルは一段階上のレベルへと引き上げられます。ファイル操作は自動化の第一歩であり、Dir関数を自在に操れるようになることは、Excel業務の自動化における登竜門です。ぜひ本稿のサンプルコードをベースに、ご自身の業務フローに合わせたツールを構築してみてください。エラーハンドリングや例外処理を適切に組み合わせれば、堅牢で高速なファイル管理ツールが完成するはずです。VBA学習の旅はまだ始まったばかりです。関数の一つひとつを深く掘り下げ、真の自動化エンジニアを目指していきましょう。
