概要：なぜDir関数やFSOではファイル検索が遅いのか？
Excel VBAでファイルやフォルダを操作する際、多くの開発者が`Dir`関数やFileSystemObject（FSO）を利用していることでしょう。これらの機能は手軽に利用でき、簡単なファイル操作であれば十分なパフォーマンスを発揮します。しかし、大量のファイルやフォルダが存在する環境、あるいは頻繁にファイル検索を実行するような業務アプリケーションでは、その処理速度の遅さに悩まされることが少なくありません。
`Dir`関数は、指定したパターンに一致する最初のファイル名を取得する関数であり、ループ処理で次のファイル名を取得していくのが一般的です。しかし、この関数はOSのファイルシステムへのアクセスを都度行うため、ファイル数が増えるにつれて逐次的な処理のオーバーヘッドが無視できなくなります。
一方、FileSystemObject（FSO）は、COMコンポーネントとして提供されるオブジェクトであり、ファイルシステム全体をオブジェクト指向で扱うことができます。`Files`コレクションや`SubFolders`コレクションなどを利用してフォルダ内のファイルやサブフォルダを一覧取得する際に、内部的には多くの処理が発生します。特に、`Folder.Files`プロパティなどは、そのフォルダ直下のファイルだけでなく、必要に応じてサブフォルダ内のファイルまで走査するような挙動を示す場合があり、予期せぬパフォーマンス低下を招くことがあります。
これらの従来の方法では、特に検索対象のファイル数が多い場合、処理に数分、場合によっては数十分といった時間がかかることも珍しくありません。これは、ユーザーエクスペリエンスを著しく低下させるだけでなく、業務効率の悪化にも直結します。
本記事では、これらの「遅い」とされる方法の限界を打破し、VBAでのファイル検索処理を劇的に高速化するための強力なアプローチとして、Windows APIの活用に焦点を当てます。Windows APIを利用することで、VBAの標準機能では実現できない低レベルでのファイルシステムへのアクセスが可能となり、驚異的なスピードアップを実現できます。
Windows APIによるファイル検索の仕組みとメリット
Windows API（Application Programming Interface）は、Windowsオペレーティングシステムが提供する機能を利用するためのインターフェースです。VBAからWindows APIを呼び出すことで、VBAの標準機能ではアクセスできない、より高度で効率的な処理を実行することが可能になります。
ファイル検索においてWindows APIを利用する最大のメリットは、その「速度」です。OSレベルでのファイルシステムのスキャンは、VBAのオブジェクトモデルを介するよりもはるかに効率的です。特に、Windows APIの`FindFirstFile`、`FindNextFile`、`FindClose`といった関数群は、指定されたパスとファイル名パターンに一致するファイルやフォルダを効率的に列挙するために設計されています。
これらのAPI関数は、VBAの`Dir`関数のように逐次的にファイル名を取得していく形式ですが、OSカーネルレベルでの処理が最適化されているため、圧倒的な処理速度を実現します。また、APIを利用することで、ファイル属性（更新日時、サイズ、属性フラグなど）をより詳細かつ高速に取得することも可能です。
Windows APIを利用する際の具体的なメリットをまとめると以下のようになります。
* **圧倒的な処理速度:** 大量のファイルやフォルダを扱う場合に、VBA標準機能と比較して数倍から数十倍、場合によってはそれ以上の速度向上が期待できます。
* **低レベルなファイルシステムアクセス:** OSのネイティブな機能を利用するため、より柔軟で高度なファイル操作が可能になります。
* **詳細なファイル情報の取得:** ファイルの属性、タイムスタンプなどを効率的に取得できます。
* **リソースの効率的な利用:** OSの最適化された機能を利用するため、VBAオブジェクトモデルを介するよりもVBA側のリソース消費を抑えられる場合があります。
しかし、Windows APIの利用には注意点もあります。API関数はC言語などの低レベル言語向けに設計されているため、VBAから利用する際には、データ型の変換やポインタの扱いなど、いくつかの注意が必要です。また、APIの誤った使用は、予期せぬエラーやアプリケーションのクラッシュを引き起こす可能性もあるため、慎重な実装が求められます。
サンプルコード：Windows APIでファイル検索を爆速化するVBAコード
ここでは、Windows APIの`FindFirstFile`、`FindNextFile`、`FindClose`関数を使用して、指定されたフォルダ内のファイルを高速に検索するVBAコードの例を紹介します。
まず、API関数を宣言するための`Declare`ステートメントと、ファイル情報を受け取るためのカスタムデータ型（Type）を定義します。
‘ Windows API宣言とデータ型定義
‘ ファイル情報を受け取る構造体
Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As Long
ftLastAccessTime As Long
ftLastWriteTime As Long
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved1 As Long
dwReserved2 As Long
cFileName As String * 260 ‘ ファイル名 (MAX_PATH)
cAlternateFileName As String * 14 ‘ DOS名 (MAX_ALTERNATE)
End Type
‘ API関数の宣言
Private Declare Function FindFirstFile Lib “kernel32” Alias “FindFirstFileA” ( _
ByVal lpFileName As String, _
lpFindFileData As WIN32_FIND_DATA _
) As Long
Private Declare Function FindNextFile Lib “kernel32” Alias “FindNextFileA” ( _
ByVal hFindFile As Long, _
lpFindFileData As WIN32_FIND_DATA _
) As Long
Private Declare Function FindClose Lib “kernel32” ( _
ByVal hFindFile As Long _
) As Long
‘ 定数
Private Const INVALID_HANDLE_VALUE As Long = -1
Private Const MAX_PATH As Long = 260
次に、これらのAPI関数を呼び出してファイル検索を実行するメインの関数を作成します。この関数は、検索対象のフォルダパスとファイル名パターン（例: “*.xlsx”）を引数として受け取り、見つかったファイル名の配列を返します。
‘ ファイル検索を実行するメイン関数
Public Function SearchFilesAPI(ByVal FolderPath As String, ByVal FilePattern As String) As Variant
Dim hFind As Long
Dim fd As WIN32_FIND_DATA
Dim FileName As String
Dim FileList() As String
Dim Count As Long
Dim FullPath As String
‘ フォルダパスの末尾に “\” を追加
If Right(FolderPath, 1) <> “\” Then
FolderPath = FolderPath & “\”
End If
‘ 検索パターンとフォルダパスを結合
FileName = FolderPath & FilePattern
‘ FindFirstFile API を呼び出して最初のファイルを探す
hFind = FindFirstFile(FileName, fd)
‘ ファイルが見つからなかった場合
If hFind = INVALID_HANDLE_VALUE Then
SearchFilesAPI = Array() ‘ 空の配列を返す
Exit Function
End If
‘ ファイルが見つかった場合、リストに追加
Count = 0
ReDim FileList(Count)
Do
‘ ファイル名文字列をヌル終端文字で切り詰める
Dim i As Long
For i = 1 To MAX_PATH
If fd.cFileName = vbNullChar Then Exit For
Next i
FileName = Left(fd.cFileName, i – 1)
‘ “.” と “..” はスキップする
If FileName <> “.” And FileName <> “..” Then
‘ ファイル属性からフォルダかどうかを判定 (FILE_ATTRIBUTE_DIRECTORY = 16)
If (fd.dwFileAttributes And 16) = 0 Then ‘ フォルダではない場合
FileList(Count) = FileName
Count = Count + 1
ReDim Preserve FileList(Count)
End If
End If
‘ FindNextFile API を呼び出して次のファイルを探す
If FindNextFile(hFind, fd) = 0 Then
Exit Do ‘ 次のファイルが見つからなかったらループを抜ける
End If
Loop
‘ ハンドルを閉じる
FindClose hFind
‘ 結果を返す (空の配列の代わりに、要素数0の配列を返す)
If Count = 0 Then
SearchFilesAPI = Array()
Else
ReDim Preserve FileList(Count – 1) ‘ 最後の要素は不要なので削除
SearchFilesAPI = FileList
End If
End Function
‘ — 使用例 —
Sub Example_SearchFilesAPI()
Dim TargetFolder As String
Dim SearchPattern As String
Dim Files() As Variant
Dim i As Long
‘ 検索対象フォルダとパターンを指定
TargetFolder = “C:\Users\YourUsername\Documents” ‘ ここを実際のフォルダパスに変更してください
SearchPattern = “*.xlsx” ‘ 例: Excelファイルのみを検索
‘ APIを使ってファイル検索を実行
Files = SearchFilesAPI(TargetFolder, SearchPattern)
‘ 結果を表示
If UBound(Files) >= LBound(Files) Then
Debug.Print TargetFolder & ” 内の ” & SearchPattern & ” の検索結果:”
For i = LBound(Files) To UBound(Files)
Debug.Print Files(i)
Next i
Else
Debug.Print TargetFolder & ” 内に ” & SearchPattern & ” に一致するファイルは見つかりませんでした。”
End If
End Sub
**コード解説:**
1. **`WIN32_FIND_DATA` 構造体:** `FindFirstFile`および`FindNextFile`関数が、見つかったファイルに関する詳細情報（ファイル名、サイズ、属性、タイムスタンプなど）を格納するために使用する構造体です。VBAでは`Private Type`ステートメントでこれを定義します。
2. **`Declare` ステートメント:** `kernel32.dll`ライブラリから`FindFirstFileA`、`FindNextFileA`、`FindClose`関数をVBAから呼び出せるように宣言します。`A`サフィックスはANSI文字セット版のAPI関数を指します（Unicode版は`W`）。
3. **`FindFirstFile`:** 指定されたパスとファイル名パターンに一致する最初のファイルまたはフォルダを検索します。見つかった場合、検索ハンドル（`hFind`）を返します。見つからなかった場合は`INVALID_HANDLE_VALUE`を返します。
4. **`FindNextFile`:** `FindFirstFile`で取得した検索ハンドルを使って、次に一致するファイルまたはフォルダを検索します。見つかった場合は`True`（非ゼロ）、見つからなかった場合は`False`（ゼロ）を返します。
5. **`FindClose`:** `FindFirstFile`で取得した検索ハンドルを解放します。リソースリークを防ぐために、検索が終了したら必ず呼び出す必要があります。
6. **`SearchFilesAPI` 関数:**
* 引数で受け取ったフォルダパスとファイルパターンを結合して、検索対象のフルパスを作成します。
* `FindFirstFile`を呼び出し、最初のファイルを取得します。
* ファイルが見つかった場合、`Do…Loop`構造で`FindNextFile`を繰り返し呼び出し、すべてのファイルを取得します。
* `fd.cFileName`は固定長文字列として宣言されているため、ヌル終端文字（`vbNullChar`）で切り詰める処理が必要です。
* ファイル属性（`dwFileAttributes`）のビット演算によって、フォルダ（`FILE_ATTRIBUTE_DIRECTORY` = 16）を除外しています。
* 取得したファイル名を配列に格納し、最後に配列として返します。
7. **`Example_SearchFilesAPI` サブルーチン:** `SearchFilesAPI`関数の使い方を示すサンプルです。検索したいフォルダパスとファイルパターンを指定して実行すると、結果がイミディエイトウィンドウ（Ctrl+Gで表示）に出力されます。
このAPIを使用することで、数万件のファイルが存在するフォルダでも、数秒から数十秒で検索結果を得ることが可能になります。
実務アドバイス：API利用時の注意点と応用
Windows APIを利用したファイル検索は非常に強力ですが、その力を最大限に引き出すためには、いくつかの注意点と応用テクニックを理解しておくことが重要です。
API利用時の注意点
* **エラーハンドリングの徹底:** API関数は、予期せぬエラー（権限不足、パスが存在しないなど）を返すことがあります。`FindFirstFile`の戻り値が`INVALID_HANDLE_VALUE`であるかどうかのチェックはもちろん、必要に応じて`GetLastError` APIなどを利用して、より詳細なエラー情報を取得し、適切に処理することが重要です。
* **文字コード:** 本サンプルではANSI版API（`A`サフィックス）を使用しています。これは、日本語環境では問題なく動作することが多いですが、Unicode文字（例：一部の絵文字や特殊記号）を含むファイル名などを扱う場合は、Unicode版API（`W`サフィックス）の使用を検討する必要があります。その場合、VBAでの文字列の扱い方（`ByVal lpFileName As UnicodeString` など）も変わってきます。
* **リソースの解放:** `FindClose`関数を呼び忘れると、OSのリソースが解放されず、システム全体のパフォーマンスに影響を与える可能性があります。必ず検索処理の最後で呼び出すようにしましょう。
* **32bit/64bitOSへの対応:** VBAの実行環境（Excel）が32bitか64bitかによって、API宣言のポインタ型などが異なる場合があります。一般的に、VBAでは`LongPtr`型を使用することで、OSのビット数に依存しない宣言が可能ですが、本サンプルでは単純化のため`Long`型を使用しています。より堅牢なコードを作成する場合は、`LongPtr`の利用を検討してください。
* **パフォーマンスの限界:** APIは高速ですが、それでもファイルシステムへのアクセスには限界があります。あまりにも大量のファイルを検索する場合や、ファイルサーバー上のネットワークドライブを頻繁に検索するような場合は、ネットワーク遅延の影響を受けることもあります。
応用テクニック
* **ファイル属性による絞り込み:** `WIN32_FIND_DATA`構造体の`dwFileAttributes`メンバには、ファイルの属性（隠しファイル、システムファイル、読み取り専用など）が含まれています。API関数で取得した属性情報をビット演算でチェックすることで、特定の属性を持つファイルのみを検索対象に含める/除外することが可能です。例えば、隠しファイルを除外するには、`If (fd.dwFileAttributes And 2) = 0 Then` のような条件を追加します。
* **ファイルサイズや更新日時の取得と利用:** `nFileSizeHigh` / `nFileSizeLow`（ファイルサイズ）や、`ftLastWriteTime`（最終更新日時）といった情報もAPIから取得できます。これにより、「特定のサイズ以上のファイル」「最近更新されたファイル」といった、より高度な条件での検索が可能になります。これらのタイムスタンプ情報は、ファイルシステム内部の形式で格納されているため、VBAで扱える日付型に変換する処理が必要になります（これは少し複雑なため、ここでは割愛します）。
* **再帰検索の実装:** 現在のサンプルコードは指定されたフォルダ直下のファイルのみを検索しますが、サブフォルダも再帰的に検索したい場合は、`FindNextFile`で見つかった項目がフォルダであった場合に、そのフォルダパスを引数として`SearchFilesAPI`関数（またはそれに類する再帰関数）を再度呼び出すように実装します。
* **FSOとの併用:** APIでファイル名リストを取得し、その後のファイル内容の読み込みやコピーといった処理にFSOを利用するなど、それぞれの得意な部分を組み合わせて利用するのも効果的です。例えば、ファイル名の一覧をAPIで高速に取得し、その中から特定のファイルだけをFSOで開いて処理するといった使い分けが考えられます。
* **パフォーマンス計測:** 実際にAPIを利用する前に、Dir関数やFSOを使った場合の処理時間を計測し、API利用後と比較することで、その効果を定量的に把握することをお勧めします。`Timer`関数などを利用して、処理前後の時間を記録し、差分を計算することで、パフォーマンス改善度を可視化できます。
これらの応用テクニックを理解し、適切に実装することで、VBAでのファイル操作の幅が格段に広がり、より高度で効率的なシステム開発が可能になります。
まとめ：VBAファイル検索の究極の高速化を実現するWindows API
本記事では、VBAにおけるファイル検索処理の遅さという課題に対し、Windows APIを活用することでそれを劇的に改善する手法を解説しました。`Dir`関数やFileSystemObject（FSO）は手軽さゆえに広く使われていますが、大量のファイルを扱う環境ではそのパフォーマンスの限界が顕著になります。
Windows API、特に`FindFirstFile`、`FindNextFile`、`FindClose`関数群を利用することで、OSのネイティブな機能に直接アクセスし、ファイルシステムのスキャンを驚異的な速度で実行することが可能になります。サンプルコードでは、これらのAPI関数をVBAでどのように利用するか、具体的な実装方法とその解説を示しました。
APIの利用は、単に高速化するだけでなく、ファイル属性の取得など、より詳細なファイル操作を可能にします。しかし、APIの利用には、エラーハンドリングの重要性、文字コードへの配慮、リソース管理といった注意点も伴います。これらの注意点を理解し、適切な実装を行うことで、VBA開発の可能性を大きく広げることができます。
もしあなたがExcel VBAで頻繁にファイル検索を行っており、その処理速度に不満を感じているのであれば、ぜひWindows APIによるファイル検索の導入を検討してみてください。このテクニックを習得することで、あなたのVBAアプリケーションは、より高速で、よりパワフルなものへと進化するはずです。業務効率の劇的な改善、ユーザーエクスペリエンスの向上に、きっと貢献できるでしょう。
