【実務・中級編】【上級プロフェッショナル向け】FSOで条件抽出したファイル群をPowerShell CLIへ渡して超高速ZIP圧縮・転送するハイブリッドワークフロー – VBScript (Visual Basic Scripting Edition)解析バイブル

【極限の設計】VBScriptの限界を突破せよ：FSOによる精密フィルタリングとPowerShellによる超高速圧縮・転送のハイブリッド・アーキテクチャ

業務自動化の現場において、多くのエンジニアが陥る「致命的な罠」がある。それは、「一つの言語ですべてを完結させようとする慢心」だ。

VBScriptは、Windows環境におけるファイル操作の「機動力」において、依然として極めて強力な武器である。`FileSystemObject (FSO)` によるファイル・フォルダの走査能力は、レガシーなシステムから最新のネットワークドライブに至るまで、驚くほどの柔軟性を持ってアクセスできる。

しかし、VBScriptには致命的な弱点がある。それは、「重い処理（CPU/メモリを大量消費する圧縮やネットワーク転送）における処理効率と、モダンなライブラリの欠如」だ。

もし君が、大量のファイルをVBScriptの `Shell.Application` を使ってZIP圧縮しようとしているなら、今すぐその手を止めろ。それは、軽自動車で重連の貨物列車を牽引しようとするような無謀な設計だ。

本稿では、VBScriptを「精密な司令塔（Orchestrator）」として使い、重い実務をPowerShellという「強靭な実行部隊（Worker）」に委譲する、ハイブリッド・ワークフローの極致を伝授する。

1. 設計思想：Separation of Concerns（関心の分離）

プロフェッショナルな設計において、最も重要なのは「役割の分離」である。

なぜこの組み合わせが「最強」なのか？

VBScriptでファイル一覧をメモリ上に保持し、それをPowerShellのコマンドライン引数として渡す手法は、ファイル数が増えた瞬間に「コマンドラインの文字数制限」という壁に衝突してクラッシュする。

真に堅牢な設計では、VBScriptで抽出した対象ファイルリストを「中間マニフェストファイル（一時的なテキストファイル）」として書き出し、PowerShellにそのパスを読み込ませる。これが、スケーラビリティを担保する唯一の解だ。

2. 実装：プロダクション・グレードのハイブリッド・コード

以下に、そのまま実務に投入可能なレベルのコード構造を示す。

【Phase 1】VBScript: 精密な条件抽出とマニフェスト生成

このスクリプトは、特定の条件（例：特定の拡張子かつ、最終更新日が一定期間内）に合致するファイルを抽出し、リスト化する。

' ==============================================================================
' Script Name: FileOrchestrator.vbs
' Description: FSOを用いて条件に合致するファイルを抽出し、PowerShellへ渡すための
'              マニフェストファイルを作成する。
' ==============================================================================
Option Explicit

Dim fso, targetFolder, manifestFile, shell, psCommand
Dim file, targetExt, lastModifiedLimit, fileCount

' --- 設定領域 ---
Const TARGET_DIR = "C:\Data\Source"        ' 走査対象ディレクトリ
Const MANIFEST_PATH = "C:\Temp\file_list.txt" ' PowerShellに渡す中間ファイル
Const TARGET_EXT = ".log"                  ' 抽出条件：拡張子
Const DAYS_LIMIT = 7                       ' 抽出条件：最終更新日がN日以内
' ----------------

Set fso = CreateObject("Scripting.FileSystemObject")
Set shell = CreateObject("WScript.Shell")

' 実行環境の検証
If Not fso.FolderExists(TARGET_DIR) Then
    WScript.Echo "Error: Target directory not found."
    WScript.Quit 1
End If

' マニフェストファイルの初期化（既存があれば削除）
If fso.FileExists(MANIFEST_PATH) Then fso.DeleteFile(MANIFEST_PATH)

Set manifestFile = fso.CreateTextFile(MANIFEST_PATH, True)
fileCount = 0

' 最終更新日の閾値計算
Dim limitDate
limitDate = DateAdd("d", -DAYS_LIMIT, Now)

On Error Resume Next ' 権限エラー等による停止を防ぐ

' --- ファイル走査ロジック ---
Dim folderObj
Set folderObj = fso.GetFolder(TARGET_DIR)

For Each file In folderObj.Files
    ' 条件判定: 拡張子が一致 かつ 更新日が閾値より新しい
    If LCase(fso.GetExtensionName(file.Name)) = LCase(TARGET_EXT) Then
        If file.DateLastModified >= limitDate Then
            ' パスを書き出し（UTF-8を意識し、ダブルクォートで囲む）
            manifestFile.WriteLine """" & file.Path & """"
            fileCount = fileCount + 1
        End If
    End If
Next

manifestFile.Close

If fileCount = 0 Then
    WScript.Echo "No files matched the criteria."
    WScript.Quit 0
End If

WScript.Echo "Found " & fileCount & " files. Delegating to PowerShell..."

' --- Phase 2: PowerShellへの委譲 ---
' PowerShellのCompress-Archiveを使用。マニフェストを読み込んで一括圧縮する。
' 引数にはマニフェストのパスのみを渡すため、文字数制限に抵触しない。
psCommand = "powershell.exe -NoProfile -ExecutionPolicy Bypass -Command ""$files = Get-Content '" & MANIFEST_PATH & "'; if($files){ Compress-Archive -Path $files -DestinationPath 'C:\Temp\Archive_" & FormatDateTime(Now, 1) & ".zip' -Force }"""

' 実行（0: 正常終了, 1: 異常終了 を待機）
Dim exitCode
exitCode = shell.Run(psCommand, 1, True)

If exitCode = 0 Then
    WScript.Echo "Workflow completed successfully."
Else
    WScript.Echo "Error: PowerShell execution failed with code " & exitCode
End If

' オブジェクトの解放（メモリリーク防止）
Set manifestFile = Nothing
Set fso = Nothing
Set shell = Nothing

' --- 補助関数 ---
Function FormatDateTime(dt, mode)
    ' ファイル名に使えない文字を排除するための簡易整形
    FormatDateTime = Replace(Replace(Replace(Year(dt) & Month(dt) & Day(dt), "-", ""), ":", ""), " ", "")
End Function

【Phase 2】PowerShell: 高速圧縮・転送（概念的補足）

上記のVBScriptから呼び出されるPowerShellの核となるロジックは、`.NET` の機能をバックエンドで利用しているため、極めて高速だ。さらに、転送が必要な場合は、以下のようなコマンドを `psCommand` 内に組み込む。

# 圧縮後のファイルをリモートサーバーへ転送する例（PowerShell側）
$zipPath = "C:\Temp\Archive_xxx.zip"
$destPath = "\\BackupServer\Shared\Archive\"
Copy-Item -Path $zipPath -Destination $destPath -Force

3. アーキテクトの視点：バグを未然に防ぐ「堅牢な設計」の要諦

このハイブリッド構成を運用する際、君が絶対に忘れてはならない注意点が3つある。

① 中間ファイルのライフサイクル管理

マニフェストファイル（`file_list.txt`）は、処理の成功・失敗に関わらず、適切にクリーンアップされる設計にせよ。本例では冒頭で削除しているが、大規模なシステムでは、`Try…Finally` 構造（VBScriptでは `On Error` とフラグ管理）を用いて、異常終了時にもゴミを残さないことがプロの仕事だ。

② 文字コードの地雷を踏むな

VBScriptの `FileSystemObject` が生成するテキストは、デフォルトで `ASCII` または `System Default (Shift-JIS)` だ。一方、PowerShellは現代的な `UTF-8` を好む。ファイル名に日本語（全角文字）が含まれる場合、このエンコードの不一致で「ファイルが見つかりません」というエラーが多発する。
対策: PowerShell側で `Get-Content -Encoding Default` を指定するか、VBScript側で `ADODB.Stream` を使用して明示的に `UTF-8` で書き出すこと。

③ オブジェクトのライフサイクル

VBScriptにおいて、`Set obj = Nothing` を怠ることは、長期間稼働するバッチ処理において「メモリリーク」という名の時限爆弾を設置することと同義だ。特にループ内でオブジェクトを生成する場合は、スコープを最小限に抑え、使い終わった瞬間に解放する癖をつけろ。

結論

VBScriptは、決して「古い言語」ではない。それは、Windowsの深淵にアクセスするための「鋭利なナイフ」だ。しかし、ナイフで巨大な岩を砕こうとしてはならない。

「条件抽出はVBScript、重作業はPowerShell」

この役割分担を徹底することで、君の作成するツールは、爆速かつ、極めて堅牢な、真にプロフェッショナルな業務自動化ソリューションへと進化する。設計の美しさは、コードの行数ではなく、その「構造」に宿るのだ。