現場で生き残るためのVBScript：`GetSpecialFolder(2)`で構築する堅牢なクリーンアップ・アーキテクチャ
「VBScriptはレガシーだ」と吐き捨てるのは簡単だ。しかし、Windows環境において、余計なランタイムを要求せず、OSの標準機能だけで即座に自動化を実現できるこの言語のポテンシャルを、君は正しく理解しているか？
今日は、初心者が最も陥りやすい「パスのハードコーディング」という罪を犯さず、`FileSystemObject (FSO)`の真髄である`GetSpecialFolder`メソッドを駆使して、安全かつ確実に一時ファイルを掃除する手法を伝授する。これは単なるコードのコピペではない。「壊れないスクリプト」を書くためのエンジニアリングの作法だ。
—
なぜ「パスの直書き」がシステムを殺すのか
初心者はよく `C:\Users\Name\AppData\Local\Temp` のようなパスを文字列として直書きする。だが、それは自殺行為だ。環境変数やユーザー設定はPCごとに異なる。
我々が目指すのは「環境依存性を排除した」コードだ。ここで登場するのが `FileSystemObject` の `GetSpecialFolder(2)` である。これは、OSが定義する「現在のユーザーの一時フォルダ」を確実に取得する唯一の正攻法だ。
—
プロダクションコード：安全なクリーンアップの実装例
以下は、特定の接頭辞を持つ、かつ「指定日数以上経過したファイルのみ」を削除する設計だ。誤削除を防ぐための「フィルタリング」こそが、業務自動化における生命線である。
‘ — FileCleaner.vbs —
Option Explicit
‘ 定数定義：保守性を高めるためにマジックナンバーは避ける
Const TEMP_FOLDER_ID = 2
Const TARGET_PREFIX = “MyApp_Log_” ‘ 削除対象ファイルの接頭辞
Const EXPIRATION_DAYS = 7 ‘ 何日前のファイルまで残すか
Dim fso, folder, file, targetPath
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ 1. GetSpecialFolder(2) で安全にパスを取得
targetPath = fso.GetSpecialFolder(TEMP_FOLDER_ID).Path
Set folder = fso.GetFolder(targetPath)
‘ 2. フォルダ内の全ファイルをループ処理
For Each file In folder.Files
‘ フィルタリング条件：接頭辞が一致し、かつ更新日時が指定日数より古いか
If Left(file.Name, Len(TARGET_PREFIX)) = TARGET_PREFIX Then
If DateDiff(“d”, file.DateLastModified, Now) > EXPIRATION_DAYS Then
On Error Resume Next ‘ 実行中のファイルを掴んでいる場合に備えエラーを制御
file.Delete True
If Err.Number <> 0 Then
WScript.Echo “スキップしました: ” & file.Name
End If
On Error GoTo 0
End If
End If
Next
Set fso = Nothing
WScript.Echo “クリーンアップが完了しました。”
—
このコードに込めた「設計思想」
このスクリプトには、現場で叩き上げられたエンジニアとしての防衛策が3つ組み込まれている。
1. `Option Explicit` の強制
変数の宣言を強制することで、タイプミスによる予期せぬバグを未然に防ぐ。VBScriptにおいてこれを書かない人間は、プロとは呼べない。
2. `On Error Resume Next` の限定的利用
ファイルを削除する際、他のアプリケーションがそのファイルを掴んでいると「権限エラー」でスクリプト全体が停止する。業務自動化において、「エラーで止まるスクリプト」は「動かないスクリプト」と同じ価値しかない。重要な処理の直前のみでエラーを無視し、直後にリセットする。これが大人のやり方だ。
3. フィルタリング条件の明確化
`If Left(…)` を使って特定の接頭辞のみを対象にしている点に注目してほしい。`GetSpecialFolder(2)` はシステム全体の一時フォルダを指す。ここにある重要なシステムファイルを削除してしまえば、PCは即座に文鎮と化す。「何を消すか」を厳格に定義する設計思想を持つこと。
—
次なるステップ：データベース連携とログ管理
もし君がこのスクリプトを「定常的な運用」に組み込むなら、次は以下の要件を実装すべきだ。
- ログ出力: `FSO.OpenTextFile` を使い、削除したファイル名と実行日時をログファイルに追記せよ。
- DB連携: 削除ログをSQLiteやSQL Serverに送信し、いつ何がどれだけ削除されたかを可視化する。
VBScriptは古い言語かもしれないが、「どう書くか」によって、それは最新の自動化ツールに匹敵する堅牢な武器になる。
さあ、コードを書いて自分の業務をハックしろ。PCは君が命令するのを待っている。
