こんにちは。Excel VBAの講師を務めております。
日々の業務において、「特定のフォルダ内にある全ファイルの情報をExcelに書き出したい」という要望は非常に多く寄せられます。ファイル名だけでなく、作成日時、更新日時、ファイルサイズ、あるいは隠し属性の有無まで詳細にリスト化したい場合、皆さんはどのような手法をとっていますか？
標準的な `Dir` 関数を用いたループ処理は簡潔で便利ですが、大量のファイルが格納されたフォルダや、サブフォルダを含めた再帰的な検索、そして詳細なメタデータの取得となると、力不足を感じる場面も少なくありません。
そこで今回は、Windowsの管理技術である「WMI（Windows Management Instrumentation）」を利用した、より高度で拡張性の高いファイル情報取得手法を解説します。
なぜ「WMI」を選択するのか？
VBAでファイル操作を行う際、多くのエンジニアが `Scripting.FileSystemObject (FSO)` を使用します。FSOは非常に優秀ですが、WMIを使用することには明確なメリットがあります。
1. **高度なクエリ言語（WQL）が使える**: SQLに似た構文（WQL）を用いることで、特定の拡張子や、特定のサイズ以上のファイルといったフィルタリングを、抽出の段階で高速に行うことができます。
2. **システム情報との親和性**: WMIはOSの管理情報に深くアクセスできるため、ファイル情報以外（ディスクの空き容量やプロセスの監視など）との組み合わせが容易です。
3. **拡張性と堅牢性**: 大規模なシステム開発において、WMIは標準的な管理インターフェースであり、プロフェッショナルな環境での保守性が高いという特徴があります。
WMIを利用したファイル一覧取得の基本構造
WMIを使用してファイル情報を取得する際、核となるのは `GetObject(“winmgmts:”)` で呼び出すWMIサービスです。これに「CIM_DataFile」というクラスを指定することで、ファイルシステム上のデータにアクセスします。
以下に、特定のフォルダ内のファイル情報を取得するための基本的なVBAコードを示します。
Sub GetFileListWithWMI()
Dim objWMIService As Object
Dim colFiles As Object
Dim objFile As Object
Dim strFolder As String
Dim i As Long
‘ 検索対象のフォルダパス（※円記号はダブルで指定）
strFolder = “C:\\WorkFiles”
‘ WMIサービスへの接続
Set objWMIService = GetObject(“winmgmts:\\\\.\\root\\cimv2”)
‘ WQLクエリの構築（TargetInstanceを使ってパスを指定）
‘ 注意：パスの区切り文字は「\\」にする必要があります
Dim strQuery As String
strQuery = “SELECT * FROM CIM_DataFile WHERE Drive = ‘C:’ AND Path = ‘\\WorkFiles\\'”
Set colFiles = objWMIService.ExecQuery(strQuery)
‘ Excelへの書き出し
i = 2
Cells(1, 1).Value = “ファイル名”
Cells(1, 2).Value = “サイズ(Byte)”
Cells(1, 3).Value = “作成日時”
For Each objFile In colFiles
Cells(i, 1).Value = objFile.FileName & “.” & objFile.Extension
Cells(i, 2).Value = objFile.FileSize
‘ WMIの時刻形式(YYYYMMDDHHMMSS…)を変換する必要がある
Cells(i, 3).Value = FormatWmiDate(objFile.CreationDate)
i = i + 1
Next objFile
End Sub
Function FormatWmiDate(wmiDate As String) As Date
‘ WMIの日付形式をVBAの日付型に変換するヘルパー関数
FormatWmiDate = DateSerial(Left(wmiDate, 4), Mid(wmiDate, 5, 2), Mid(wmiDate, 7, 2)) + _
TimeSerial(Mid(wmiDate, 9, 2), Mid(wmiDate, 11, 2), Mid(wmiDate, 13, 2))
End Function
WQLの強力なフィルタリング機能
上記のコードで注目すべきは、`strQuery` の部分です。ここを工夫することで、Excel側で後からフィルタリングするのではなく、OS側で必要な情報だけをピンポイントで抜き出すことができます。
例えば、「特定のサイズ（例：1MB以上）のファイルだけを取得したい」という要件なら、クエリを以下のように書き換えるだけです。
`strQuery = “SELECT * FROM CIM_DataFile WHERE Drive = ‘C:’ AND Path = ‘\\WorkFiles\\’ AND FileSize > 1048576″`
このように、WQLを使えばExcelの処理負荷を大幅に軽減できるのが、WMIの真骨頂です。
実装上の注意点とプロの視点
WMIは非常に強力ですが、注意すべき点もいくつかあります。
1. **パスの記述方法**: WMIにおけるパス指定は、通常のVBAの文字列操作とは異なり、円記号 `\` をエスケープして `\\` と記述する必要があります。ここを間違えるとエラーが発生しやすいため、動的にパスを作成する場合は注意してください。
2. **権限の問題**: WMIはシステム管理ツールであるため、アクセス権限のないシステムフォルダ（Windowsフォルダなど）や、ネットワーク共有フォルダに対しては、実行時にエラーを返すことがあります。必要に応じて、エラーハンドリングを適切に実装しましょう。
3. **パフォーマンスの考慮**: 数万件を超えるような膨大なファイルが存在するフォルダを対象にする場合、一度に全てをメモリ上に読み込むとExcelの動作が重くなる可能性があります。その場合は、一度に取得する件数を制限する工夫が必要です。
実務での応用：こんな活用シーンで真価を発揮する
私が現場でこの手法を推奨するのは、以下のようなケースです。
* **ファイルサーバの整理・棚卸し**: 「半年以上アクセスがない、かつ10MB以上のファイルをリストアップする」といった複雑な抽出条件を、一瞬でExcelに反映させたい場合。
* **バックアップログの整合性チェック**: フォルダ内のファイルと、データベース上のファイルリストを突合し、欠損や不整合を特定する場合。
* **自動レポート作成**: 毎日決まった時間にフォルダ内をスキャンし、最新のファイル状況を管理者にメール送信するツールの基幹部分として。
最後に：道具としてのVBAを使いこなすために
Excel VBAは単なる「事務作業の自動化ツール」ではありません。WMIのようなWindowsの標準技術と組み合わせることで、OSレベルの管理業務をもこなす強力なツールへと進化します。
今回ご紹介したWMIによるファイル取得は、一見すると難解に思えるかもしれません。しかし、一度この構造を理解してしまえば、他のWMIクラス（Win32_ProcessやWin32_Serviceなど）を応用することで、VBAでできないことはほとんどないと言えるほどの世界が広がります。
ぜひ、皆さんの実務環境でこのコードを試し、情報の抽出スピードと精度の向上を体感してみてください。
もし実装中に「特定の環境でエラーが出る」「もっと複雑な条件で抽出したい」といった疑問があれば、いつでもご相談ください。プロフェッショナルな視点から、最適な解決策を一緒に考えましょう。
それでは、次回の記事もお楽しみに。皆さんのVBAライフがより効率的で、クリエイティブなものになりますように。
