【VBAリファレンス】ドライブ全体をファイル検索する：FileSearchオブジェクトの代替手法とFileSystemObjectによる堅牢な実装術

ExcelVBA

2026.08.23

概要

Excel VBA開発において、「特定のドライブ全体を検索して目的のファイルを探し出す」という処理は、業務自動化の現場で頻繁に求められる要件です。かつてOffice 2003以前のVBAには「FileSearchオブジェクト」という非常に簡便で強力な検索機能が存在しました。しかし、Office 2007以降、このオブジェクトは廃止され、現在では利用することができません。

多くの開発者がこの廃止によって路頭に迷いましたが、現代のVBA開発においては「FileSystemObject（FSO）」を活用した再帰処理こそが、ドライブ全体を網羅するファイル検索のスタンダードです。本稿では、かつてのFileSearchオブジェクトに代わる、より柔軟で高速、かつエラー耐性の高いドライブ横断検索の実装手法を徹底的に解説します。

詳細解説：なぜFileSearchは廃止され、FSOが選ばれるのか

かつてのFileSearchオブジェクトは、ワイルドカードを用いた直感的な検索が可能でしたが、システムの奥深くへのアクセス制御や、膨大なファイル数に対するメモリ管理の面で限界がありました。現在推奨される「FileSystemObject」は、Windowsのスクリプト環境（Windows Script Host）の一部であり、OSレベルでファイルシステムを操作するため、極めて安定しています。

ドライブ全体を検索する際の最大の壁は「ディレクトリの深さ」と「アクセス権限」です。ドライブ直下から始まり、階層を降りていく再帰処理（Recursive Process）を実装することで、フォルダの深さを意識することなく、全ファイルを走査することが可能です。また、Windowsの「アクセス拒否」エラーに対する例外処理を組み込むことで、システムフォルダなどで処理が停止してしまうリスクを回避することができます。

サンプルコード：再帰によるドライブ全体検索の実装

以下に、指定したパス以下をすべて走査し、条件に一致するファイルパスをイミディエイトウィンドウに出力するプロシージャを記述します。


Option Explicit

' 参照設定: Microsoft Scripting Runtime を有効にすることを推奨
Dim fso As Object

Sub SearchAllFiles()
    Dim rootPath As String
    rootPath = "C:\" ' 検索を開始するドライブまたはフォルダパス
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    On Error Resume Next ' アクセス拒否エラー対策
    Call RecursiveSearch(fso.GetFolder(rootPath))
    On Error GoTo 0
    
    Set fso = Nothing
    MsgBox "検索が完了しました。"
End Sub

Sub RecursiveSearch(ByVal targetFolder As Object)
    Dim subFolder As Object
    Dim file As Object
    
    ' 現在のフォルダ内のファイルをチェック
    For Each file In targetFolder.Files
        ' ここでファイル名の条件分岐（例：拡張子がxlsxのもの）
        If LCase(fso.GetExtensionName(file.Name)) = "xlsx" Then
            Debug.Print file.Path
        End If
    Next file
    
    ' サブフォルダを再帰的に探索
    For Each subFolder In targetFolder.SubFolders
        Call RecursiveSearch(subFolder)
    Next subFolder
End Sub

実務アドバイス：パフォーマンスと安定性を高めるテクニック

実務レベルで数万ファイルを超える環境を検索する場合、単純な再帰処理だけでは「実行時間が長すぎる」「メモリを浪費する」といった問題が発生します。現場で生き残るためのプロのテクニックを3つ伝授します。

1. 検索条件の厳格化
不要なフォルダ（$RECYCLE.BINやSystem Volume Informationなど）を明示的に除外する条件を加えましょう。これだけで検索時間は劇的に短縮されます。

2. 進行状況の可視化
巨大なドライブを検索する場合、処理が止まっているのか動いているのか不安になるものです。ステータスバー（Application.StatusBar）に現在検索中のパスを表示させることで、ユーザー体験を向上させることができます。

3. 検索結果の配列格納
Debug.Printで出力するだけでなく、発見したパスを動的配列（Dynamic Array）やCollectionオブジェクトに一度格納し、最後にシートへ一括転記するように設計してください。セルへの書き込み回数を減らすことが、VBA高速化の鉄則です。

エラーハンドリングの重要性

ドライブ全体を探索する際、最も頻繁に発生するのが「権限不足（Permission Denied）」エラーです。上記のサンプルコードでは「On Error Resume Next」を用いて安易に回避していますが、より厳密な開発を行う場合は、フォルダのAttributesプロパティを確認し、システム属性や隠し属性を持つフォルダをスキップするロジックを追加することを推奨します。これにより、処理の信頼性が格段に向上します。

まとめ

FileSearchオブジェクトの廃止は、VBAプログラマーにとって一つの転換点でした。しかし、FileSystemObjectを用いた再帰処理を習得することで、私たちは以前よりも遥かに高度で柔軟なファイル管理システムを構築できるようになりました。

ドライブ全体を検索するという処理は、単なるファイル探しではなく、データの整理、アーカイブの自動化、ログの集計など、あらゆるシステム自動化の基礎となります。今回解説した再帰処理のロジックをマスターし、ぜひご自身の業務効率化プロジェクトに組み込んでみてください。VBAは、OSの機能をどれだけ深く理解し、それらを適切に呼び出せるかで、その可能性が無限に広がります。本稿が、あなたの開発ライフをより強固なものにする一助となれば幸いです。