VBScriptを掌握せよ：メモリリークを撲滅し、プロセスを支配する「クリーンアップ」の極意
VBScriptは、一見すると「古臭い、単純なスクリプト言語」に見えるかもしれない。しかし、業務自動化の現場において、WSH（Windows Script Host）の持つ強力なCOM操作能力を侮ってはならない。
多くのエンジニアが犯す最大の過ちは、「スクリプトが終了すればメモリも解放される」という幻想を抱くことだ。現実は残酷である。特に巨大なExcelファイルを操作したり、数万件のログをFSO（FileSystemObject）で処理したりする際、`Set obj = Nothing`を怠ったコードは、システムリソースを食いつぶす「地雷」へと変貌する。
今日は、VBScriptにおけるメモリ管理の深淵と、実務で絶対にバグらせないための「クリーンアップ作法」を伝授する。
—
1. なぜ「Nothing」を代入すべきなのか：参照カウントの真実
VBScriptのメモリ管理は、「参照カウント方式」という古き良き設計に基づいている。
オブジェクトが生成されるとカウントが上がり、参照が切れるとカウントが下がる。カウントがゼロになった瞬間にメモリから解放される。
しかし、以下のケースでこの仕組みは崩壊する。
- スコープの長期化: ループ内で生成されたオブジェクトが、ループを抜けてもスコープ内に残り続ける。
- 循環参照: 複雑なオブジェクト構成で、互いに参照し合っている場合（VBScriptでは稀だが注意が必要）。
- プロセスの残留: Excelのアプリケーションオブジェクトを明示的に閉じずにスクリプトを終了させると、メモリ上には「見えないExcel」が残り、次回の実行やシステム全体のパフォーマンスを著しく低下させる。
「なんとなく動く」コードから「堅牢なプロダクションコード」へ脱却するには、「使い終わった瞬間に殺す（解放する）」という強い意志が必要だ。
—
2. 巨大ループでメモリを枯渇させないための鉄則
数万件の処理を行う場合、ループ内でのオブジェクト生成はメモリリークの温床になる。以下のコードは、NG例と推奨される「クリーンな設計」の対比だ。
非推奨（リークするコード）
‘ メモリを食い潰す危険なループ例
Set fso = CreateObject(“Scripting.FileSystemObject”)
For i = 1 To 10000
Set ts = fso.OpenTextFile(“log.txt”, 8, True) ‘ 毎回ファイルを開く
ts.WriteLine “Log entry: ” & i
‘ ts.Close がない、もしくはSet ts = Nothingをしていないとメモリが滞留する
Next
推奨（堅牢なプロダクションコード）
Dim fso, ts
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ 処理の最小単位をカプセル化し、リソースを即座に解放する
For i = 1 To 10000
Call WriteLogEntry(fso, i)
Next
‘ 最後に親オブジェクトを解放
Set fso = Nothing
Sub WriteLogEntry(fsoObj, index)
Dim fileStream
Set fileStream = fsoObj.OpenTextFile(“log.txt”, 8, True)
fileStream.WriteLine “Log entry: ” & index
‘ ここで必ず解放し、スコープから消滅させる
fileStream.Close
Set fileStream = Nothing
End Sub
—
3. 実践：Excel操作における「完全クリーンアップ」テンプレート
業務自動化で最も頻発するトラブルは「Excelプロセスがバックグラウンドに残り続ける」ことだ。これを完璧に防ぐためのテンプレートを提示する。
Dim xlApp, xlBook
On Error Resume Next ‘ エラー発生時もクリーンアップへ飛ばすため
Set xlApp = CreateObject(“Excel.Application”)
Set xlBook = xlApp.Workbooks.Open(“C:\Data\Report.xlsx”)
‘ — ここで業務処理を実行 —
xlBook.Sheets(1).Cells(1, 1).Value = “Processed”
‘ — クリーンアップの儀式 —
If Not xlBook Is Nothing Then
xlBook.Close False ‘ 保存せずに閉じる（必要に応じてTrue）
Set xlBook = Nothing
End If
If Not xlApp Is Nothing Then
xlApp.Quit
Set xlApp = Nothing
End If
‘ 正常終了後にエラーフラグをリセット
On Error GoTo 0
重要なテクニック
1. `On Error Resume Next`の活用: エラーが発生しても強制的に終了処理へ移行させる。
2. `Is Nothing`による判定: そもそもオブジェクトが生成されなかった場合（ファイルが存在しない等）の二重エラーを回避する。
3. 逆順の解放: 生成した順序と逆順に解放するのが定石である。
—
4. 最後に：エンジニアとしての矜持
VBScriptは「古い言語」ではない。「OSの深淵に直接触れられる、極めて軽量な武器」である。
メモリリークを許容するエンジニアは、たとえコードが動いても「未完成」であると自覚すべきだ。リソースを解放し、OSに負荷を与えず、静かに終了する。それが、プロのエンジニアが記述する「美学あるスクリプト」だ。
次にスクリプトを書くとき、`Set obj = Nothing`を単なる儀式としてではなく、「システムへの敬意」として書き込んでほしい。それだけで、あなたの書くプログラムの品格は一段上のレベルに達するはずだ。
