概要：Dir関数とは何か、なぜ今習得すべきなのか
Excel VBAにおいて、ファイルシステムを操作するスキルは「初級者」と「中級者」を隔てる決定的な境界線です。特にDir関数は、VBAでファイルやフォルダを操作するための最も基本的かつ強力なツールです。Dir関数を使いこなせれば、特定のフォルダ内にある数千のExcelファイルを一括で読み込んだり、古いバックアップファイルを自動で削除したり、ファイル名のリストを瞬時に作成したりすることが可能になります。
多くの学習者がDir関数でつまずく理由は、その「独特な呼び出しルール」にあります。初めて引数を指定して呼び出し、二回目以降は引数を省略して呼び出すという仕様は、プログラミング初心者には直感的に理解しにくいものです。本記事では、Dir関数の基礎から実務で即戦力となるテクニックまで、18の段階的な練習問題を通じて徹底的に解説します。これらをマスターすれば、ファイル操作に関する業務効率化はあなたのものとなります。
詳細解説：Dir関数のメカニズムを解剖する
Dir関数は、指定したパスに一致するファイル名またはフォルダ名を返します。最大のポイントは、関数が「内部で状態を保持している」という点です。
構文：Dir[(pathname, [attributes])]
1. 最初の呼び出し：Dir(“C:\Folder\*.xlsx”)のように、検索対象のパスを指定します。条件に一致する最初のファイルが見つかれば、その名前を返します。
2. 二回目以降の呼び出し：Dir()のように引数を空にして呼び出します。すると、前回見つけたファイルの「次」のファイルを返します。
3. 終了条件：条件に一致するファイルがなくなると、Dir関数は空文字列(“”)を返します。
この仕組みを理解していないと、無限ループに陥ったり、予期せぬエラーが発生したりします。また、attributes引数を使うことで、通常のファイルだけでなく、隠しファイルやディレクトリ（フォルダ）を取得することも可能です。
サンプルコード：基本から応用まで
以下に、Dir関数の習得に不可欠な基本パターンのコードを提示します。
' 【基本】指定フォルダ内の全Excelファイル名をイミディエイトウィンドウに出力する
Sub ListExcelFiles()
Dim folderPath As String
Dim fileName As String
folderPath = "C:\TestFolder\"
fileName = Dir(folderPath & "*.xlsx")
Do While fileName <> ""
Debug.Print fileName
fileName = Dir() ' 引数なしで次のファイルを取得
Loop
End Sub
' 【応用】フォルダ内のすべてのサブフォルダを取得する
Sub ListSubFolders()
Dim folderPath As String
Dim folderName As String
folderPath = "C:\TestFolder\"
' vbDirectoryを指定してフォルダを検索
folderName = Dir(folderPath, vbDirectory)
Do While folderName <> ""
' "." と ".." は除外する
If folderName <> "." And folderName <> ".." Then
If (GetAttr(folderPath & folderName) And vbDirectory) = vbDirectory Then
Debug.Print "フォルダ: " & folderName
End If
End If
folderName = Dir()
Loop
End Sub
実務アドバイス：ベテラン講師が教える注意点
1. パス区切り文字のミスを避ける
Dir関数に渡すパス文字列の最後が「\」で終わっているかを確認してください。`folderPath & “*.xlsx”`とする際、パスの末尾に「\」がないとエラーになります。`If Right(folderPath, 1) <> “\” Then folderPath = folderPath & “\”`というチェックを入れるのがプロの作法です。
2. 再帰呼び出しとの組み合わせ
Dir関数は単体ではサブフォルダの中まで自動的に検索してくれません。サブフォルダの中まで検索したい場合は、再帰処理（自分自身を呼び出すプロシージャ）を組み合わせて実装する必要があります。これは中級者へのステップアップとして非常に良い演習になります。
3. 競合問題
Dir関数はアプリケーション内で状態を保持しているため、別のプロシージャで同時にDir関数を呼び出すと、ループが混乱します。複雑な処理を行う際は、FileSystemObject (FSO) の使用を検討すべきですが、簡単なリストアップであればDirの方が高速でメモリ消費も少ないというメリットがあります。
4. 読み取り専用と隠しファイルの扱い
attributes引数に `vbHidden + vbSystem` を指定することで、隠しファイルも含めて検索可能です。ただし、実務では「本当に必要なファイルだけ」を扱うよう、フィルタリングを厳格に行うのが安全です。
まとめ：継続的な学習の重要性
Dir関数は、一見すると地味な関数ですが、VBAで自動化を実現する上で欠かせない「土台」です。本記事で紹介した18の練習ステップ（まずはファイル列挙、次にフォルダ列挙、次にファイル情報の取得、最後にエラーハンドリングの実装…といった順序）を一つずつ着実にクリアしていってください。
最初は難しく感じるかもしれませんが、一度ループのパターンを指が覚えてしまえば、どんな複雑なファイル操作も恐れることはなくなります。VBAの学習において最も重要なのは、コードを写経するだけでなく、「なぜこの引数が必要なのか」「なぜ引数を省略するのか」という仕様の背景を考えることです。
ファイル操作の自動化は、業務時間を大幅に削減する最もインパクトのある改善の一つです。Dir関数という強力な武器を手に入れ、日々の単調なルーチンワークから解放されましょう。今回の練習問題を皮切りに、ぜひご自身の環境で様々なフォルダを対象に実験を繰り返してみてください。それが、真のVBAエキスパートへの唯一の近道です。
