VBScriptを極める：FSOとWMIのハイブリッド戦略による「究極のファイル管理術」
VBScriptは「レガシーなスクリプト」ではない。適切に設計すれば、今なおWindows環境における最も軽量で強力な自動化の武器だ。しかし、多くのエンジニアが陥る罠がある。それは「FSO（FileSystemObject）だけで全てを解決しようとすること」だ。
FSOはファイル操作の王道だが、OSの深いメタデータ（所有者、作成・更新の詳細な権限、複雑なクエリ）を扱うには力不足だ。そこで我々は、WMI（Windows Management Instrumentation）を武器に加える。
今回は、FSOの「軽快な操作性」とWMIの「強力な検索能力」を融合させ、業務効率を最大化するプロフェッショナルな設計論を授ける。
—
1. なぜFSO単体では「戦えない」のか
FSOの `GetFolder` や `SubFolders` を再帰的に回すコードをよく見かける。だが、以下のケースで詰んだ経験はないだろうか？
- 所有者の取得: FSOではファイルの所有者情報を取得できない。
- クエリ性能: ディレクトリ階層が数万件を超えると、再帰的なFSOの検索はメモリを圧迫し、実行時間が指数関数的に増大する。
- ワイルドカードの制限: FSOの `GetFile` はフルパスを知らなければならない。ファイル名だけで検索しようとすれば、結局全走査が必要になる。
これらを解決するのが「WMIによるフィルタリング」だ。
—
2. ハイブリッド設計の鉄則
私の設計思想はシンプルだ。
1. 検索・選別（WMI）: `Win32_Directory` や `CIM_DataFile` を使い、OSレベルで高速にフィルタリングしたリストを取得する。
2. 操作・加工（FSO）: 取得したファイルパスに対し、FSOでストリーム操作やリネーム、属性変更を行う。
この分業により、コードの複雑度を下げつつ、パフォーマンスを劇的に向上させる。
—
3. 実践：所有者情報を含む高度なファイル検索ツール
以下のコードは、特定のフォルダ配下から、特定の拡張子を持つファイルを抽出し、その所有者まで含めてCSV化する実戦形式のサンプルだ。
‘ — Production Ready: Hybrid File Inventory Script —
Option Explicit
Dim objWMIService, colFiles, objFile
Dim strPath, strQuery, fso, logFile
‘ 検索パス（WMIのバックスラッシュはエスケープが必要）
strPath = “C:\\TargetFolder”
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set logFile = fso.CreateTextFile(“inventory.csv”, True)
‘ WMIでCIM_DataFileを使用し、OS側で絞り込みを実行
‘ 検索速度はFSOの再帰処理とは比較にならない
strQuery = “SELECT FROM CIM_DataFile WHERE Path = ‘” & strPath & “\\’ AND Extension = ‘pdf'”
Set objWMIService = GetObject(“winmgmts:\\.\root\cimv2”)
Set colFiles = objWMIService.ExecQuery(strQuery)
logFile.WriteLine “FilePath,FileSize,Owner”
For Each objFile In colFiles
‘ 所有者情報はGetSecurityDescriptorメソッドを呼び出す必要がある
Dim objOwner
If objFile.GetSecurityDescriptor(objOwner) = 0 Then
‘ ファイル操作はFSOにバトンタッチ
logFile.WriteLine objFile.Name & “,” & objFile.FileSize & “,” & objOwner.Owner.Name
End If
Next
logFile.Close
Set colFiles = Nothing
Set objWMIService = Nothing
WScript.Echo “処理完了：inventory.csvを確認してください。”
—
4. プロとして押さえておくべき「罠」と対策
① パスのエスケープ問題
WMIのクエリ内でパスを扱う際、Windowsはパス区切り文字 `\` を特殊文字として扱う。`Replace(path, “\”, “\\”)` を必ず実行し、クエリが構文エラーになるのを防ぐこと。
② WMIの権限とパフォーマンス
WMIは強力だが、非常に広い範囲（例：`C:\` 直下など）を検索対象にすると、CPU使用率が跳ね上がる。必ず検索範囲を限定（Path指定）する設計を徹底せよ。
③ データベース連携の注意点
集計したデータをデータベース（AccessやSQL Server）へ投入する場合、「トランザクション」を意識すること。VBScriptでループ処理中に都度Insertを発行するのは遅延の元だ。一度ログファイル（CSV）に排出し、それを `BULK INSERT` するのが、大規模データ処理における「勝てる」アーキテクチャである。
—
5. 最後に：エンジニアとしての矜持
VBScriptで書くということは、「誰でも・どの環境でも・追加インストールなしで」動くソリューションを提供することを意味する。しかし、それを「汚いコード」で書く言い訳にしてはいけない。
- エラーハンドリングを怠るな: `On Error Resume Next` は最小範囲で使用し、必ず `Err.Number` で正常性をチェックせよ。
- 再利用性を高めよ: ロジックは関数化し、引数でパスを受け取る設計にせよ。
このハイブリッド技法をマスターすれば、貴殿の自動化ツールは「動くスクリプト」から「堅牢な業務基盤」へと進化するはずだ。次のコードを書く時、ぜひこの構造を思い出してほしい。
