【実務・中級編】【一時ファイル】GetSpecialFolderとGetTempNameを使った安全なテンポラリファイル生成と自動消去 – VBScript (Visual Basic Scripting Edition)解析バイブル

【VBScript極限講座】一時ファイルの安全な生成と自動消去：GetSpecialFolderとGetTempNameによる堅牢なワークファイル管理

業務自動化の現場において、VBScriptによるファイル操作は今なお強力な武器だ。しかし、多くの開発現場で「適当なパスに `temp.txt` なんて名前で一時ファイルを作り、処理が終わったら `Kill` する」という、爆弾を抱えたようなコードを目撃する。

名前の固定化による競合（コンテンション）、例外発生時のファイル消し忘れ、アクセス権限エラー。これらはすべて「場当たり的な設計」が招く人災だ。

今回は、OSの深部を知り尽くしたアーキテクトの視点から、FSO（FileSystemObject）の真価を引出し、過酷なプロダクション環境でも微動だにしない「安全なテンポラリファイル生成と自動消去の極意」を伝授する。

—

なぜ「その一時ファイルの書き方」は破綻するのか？

多くの初心者がやりがちなアンチパターンを見てみよう。

‘ 【悪夢のアンチパターン】絶対に真似してはいけない例
Dim fso, targetFile
Set fso = CreateObject(“Scripting.FileSystemObject”)

‘ 固定名でファイルを作成する愚行
Set targetFile = fso.CreateTextFile(“C:\temp\work.txt”, True)
targetFile.WriteLine “Data processing…”
targetFile.Close

‘ ～ 何らかの重い処理 ～
‘ ここでエラーが起きると以下の削除処理に到達せず、ファイルがゴースト化する！

fso.DeleteFile “C:\temp\work.txt”

このコードの問題点は明確だ。
1. 名前の衝突（Collision）: 複数プロセスが同時に走った瞬間、ファイルが破壊されるかロック競合を起こす。
2. ハードコードされたパス: 環境によって `C:\temp` すら存在しない、あるいは書き込み権限がない。
3. 例外時の消し忘れ: 途中でエラーが発生してスクリプトが異常終了した場合、テンポラリファイルが永久にゴミとして残る。

プロのエンジニアが目指すべきは、「誰が、いつ、いかなる状況で実行しようとも、システムを汚さず、競合しないコード」である。

—

堅牢なワークファイル管理を支える2つの神器

VBScriptでこれを極限まで安全に実現するためには、`FileSystemObject` が持つ2つのメソッドを正しく理解し、組み合わせる必要がある。

1. `GetSpecialFolder(2)`：安全な領域の特定

ハードコードされたパスを捨てよ。`GetSpecialFolder` メソッドに引数 `2` を渡すことで、OSがその実行ユーザーのために用意した「テンポラリフォルダ（TemporaryFolder）」の絶対パスを動的に取得できる。

• 引数 `0`: Windowsフォルダ (`SystemFolder` の間違いやすいので注意。正しくは `WindowsFolder`)
• 引数 `1`: Systemフォルダ
• 引数 `2`: Temporaryフォルダ

環境変数（`TEMP` や `TMP`）に依存せず、OSのAPIレベルで保証された安全な作業領域を確実に確保できる。

2. `GetTempName`：一意性の担保

「名前被り」を完全に根絶するのが `GetTempName` だ。このメソッドを呼び出すと、ランダムかつ一意（ユニーク）なファイル名（例: `rad12345.tmp`）を動的に生成してくれる。
どれだけ高頻度で並列実行されようとも、名前が衝突することは理論上あり得ない。

—

【実戦プロダクションコード】コピペで使える堅牢なテンプレート

それでは、例外処理（VBScriptにおける `On Error Resume Next` とステータス監視）を網羅し、処理が成功しようが失敗しようが、確実にファイルをクリーンアップする実用スクリプトを提示する。

‘ ==============================================================================
‘ 黄金のテンポラリファイル管理テンプレート
‘ Purpose: 安全な領域でのワークファイル生成、データ処理、確実な自動消去
‘ ==============================================================================
Option Explicit

Call Main()

Sub Main()
Dim fso, tempFolder, tempFileName, tempFilePath
Dim stream

Set fso = CreateObject(“Scripting.FileSystemObject”)

‘ 1. OS標準のテンポラリフォルダを取得
Set tempFolder = fso.GetSpecialFolder(2) ‘ 2 = TemporaryFolder

‘ 2. 衝突しないユニークなファイル名を生成
tempFileName = fso.GetTempName()
tempFilePath = fso.BuildPath(tempFolder.Path, tempFileName)

WScript.Echo “生成された安全なワークパス: ” & tempFilePath

‘ 3. エラーハンドリングの有効化（リソースリークを防ぐための布石）
On Error Resume Next

‘ テンポラリファイルの作成 (Overwrite = True, Unicode = False)
Set stream = fso.CreateTextFile(tempFilePath, True, False)

If Err.Number <> 0 Then
WScript.Echo “[CRITICAL] テンポラリファイルの作成に失敗しました: ” & Err.Description
Exit Sub
End If

‘ — 【実務データ処理シミュレーション】 —
stream.WriteLine “— 秘匿データ処理バッチ開始 —”
stream.WriteLine “Timestamp: ” & Now()
stream.Write “Processing critical records…”
‘ ——————————————-

‘ ストリームを確実に閉じる（ファイルロックの解放）
stream.Close
Set stream = Nothing

‘ わざとエラーを発生させるテストをする場合はここでExitするなり試せる
If Err.Number <> 0 Then
WScript.Echo “[ERROR] 処理中に例外が発生しました: ” & Err.Description
End If

‘ 4. 【最重要】クリーンアップ処理（finallyブロックの概念）
‘ 処理の成否に関わらず、ファイルが存在していれば必ず削除する
If fso.FileExists(tempFilePath) Then
fso.DeleteFile tempFilePath, True ‘ True = 読み取り専用属性も強制削除
WScript.Echo “[INFO] ワークファイルを正常に消去しました。”
End If

‘ エラー監視の解除
On Error GoTo 0

Set tempFolder = Nothing
Set fso = Nothing
WScript.Echo “すべてのプロセスが正常に完了しました。”
End Sub

—

匠の視点：データベース・外部連携時の注意点

このパターンを実務のデータベース連携（ADOによるSQL ServerやAccessからのデータエクスポート等）に応用する際、以下の罠に注意してほしい。

1. ファイルロックのタイミング（Streamのライフサイクル）
ADOの `SaveToFile` や Excelの `SaveAs` を一時ファイルに対して実行する場合、オブジェクトが完全にメモリから解放され、`.Close` が完了する瞬間までFSO側でファイルを削除できない。
VBScriptではガベージコレクションのタイミングが曖昧になることがあるため、使い終わったオブジェクトには明示的に `Set xxx = Nothing` を代入し、参照カウンタを即座にゼロに落とすことが、ファイル削除エラー（権限エラー・アクセス拒否）を防ぐ絶対の定石である。

2. セキュリティコンテキスト（権限の壁）
タスクスケジューラなどで「最上位の特権で実行する」あるいは「別ユーザー権限」でVBScriptを走らせる場合、`GetSpecialFolder(2)` が指すパスが実行ユーザーごとに異なる点に注意せよ。
意図したユーザーの `AppData\Local\Temp` に書き込まれているか、ログ出力等でパスをトレースできるように設計しておくことが、保守フェーズでのデバッグ効率を劇的に向上させる。

—

まとめ

たかが一時ファイル、されど一時ファイル。
インフラやOSの挙動を無視した実装は、いつか必ず本番環境でシステムを停止させる致命傷となる。

• パスはハードコードせず `GetSpecialFolder(2)` で動的取得する。
• ファイル名は `GetTempName` で一意性を担保する。
• 例外時であっても確実に掃除するイディオム（`On Error` と `FileExists` による安全策）を徹底する。

この3つを遵守するだけで、あなたの書くVBScriptの信頼性は、プロフェッショナル水準へと劇的に昇華する。現場のコード品質を上げるのは、こうした細部へのこだわりなのだ。