【極限のメモリ管理術】VBScriptで巨大なDictionaryを扱う際、なぜメモリは食いつぶされるのか？ 〜RemoveAllとNothingの真実〜
「昨日まで動いていたスクリプトが、大量のデータを投入した途端に、PC全体が重くなって強制終了してしまった……」
もしあなたがそんな経験をしたことがあるなら、おめでとうございます。あなたは今、「プログラミングの基礎」から「システムエンジニアリングの本質」へと足を踏み入れた瞬間にいます。
こんにちは。今日は、VBScript（WSH）を使って業務自動化を行う皆さんが、必ずと言っていいほど直面する「メモリ消費の壁」について、その正体と、伝説的なアーキテクトたちが実践している「メモリ解放の極意」を伝授しましょう。
ここをクリアすれば、あなたは「動くコード」を書く人から、「堅牢でプロフェッショナルなシステム」を構築できるエンジニアへと進化できるはずですよ。
1. なぜ「大量のデータ」でスクリプトは死ぬのか？
VBScriptで大量のデータを扱う際、最も強力な武器になるのが `Scripting.Dictionary` オブジェクトです。キー（名前）とアイテム（値）をペアにして保持できるこのオブジェクトは、数万件のデータを高速に検索・管理するのに最適です。
しかし、ここに落とし穴があります。
概念図：Dictionaryは「魔法の箱」ではない
多くの初学者は、Dictionaryを「データを入れるだけの空の箱」だと考えています。しかし、OS（Windows）から見ると、Dictionaryは「メモリという広大な土地を占有する、巨大な倉庫」なのです。
【イメージ図】
[ データの追加 ]
[ Dictionary ] ---> [ メモリ領域をどんどん確保して、中身を詰め込む ]
↑
└─ データの量が増えるほど、倉庫の敷地（メモリ占有量）は広くなっていく問題は、「中身を消したからといって、倉庫の敷地（占有メモリ）がすぐに元のサイズに戻るとは限らない」という点にあります。
2. 運命の分かれ道：`RemoveAll` vs `Nothing`
ループ処理の中で、大量のデータを処理した後にDictionaryをクリアしたい場面があります。ここで、多くのエンジニアが「どちらを使うべきか」で迷います。結論から言いましょう。
「使い分け」を知ることこそが、メモリ管理の真髄です。
① `dict.RemoveAll` —— 「中身を空にする」
`RemoveAll` メソッドは、Dictionaryの中に入っている「データ（中身）」をすべて削除します。
- 挙動: 倉庫の中にある荷物をすべて運び出す。
- メリット: 倉庫（オブジェクト自体）を使い回せるため、次にデータを入れる際の「倉庫の再建設（オブジェクト生成）」のコストがかからない。
- デメリット: 「倉庫の敷地（確保済みのメモリ領域）」はそのまま残ることが多い。 つまり、一度100万件のデータを扱ったDictionaryに対して `RemoveAll` をしても、そのDictionaryは「100万件入る準備ができている巨大な空き地」としてメモリを占有し続けます。
② `Set dict = Nothing` —— 「箱ごと捨てる」
`Nothing` を代入することは、オブジェクトの参照を断ち切り、そのオブジェクトをメモリから解放（破棄）することを意味します。
- 挙動: 倉庫そのものを解体し、敷地を更地に戻す。
- メリット: 確保していたメモリ領域がOSに返却される。 メモリリークを防ぐ最も確実な手段。
- デメリット: 次にデータが必要なとき、再び `CreateObject` で「新しい倉庫」を建てるコスト（処理時間）が発生する。
3. 実践：メモリリークを回避する「黄金の設計パターン」
では、実際にどのようなコードを書くべきか。
「数万件のデータを、ループの中で何度も処理する」という、最もメモリが枯渇しやすいシナリオを想定したコード例を見てみましょう。
' ==========================================================================
' テーマ：巨大なDictionaryのメモリ管理検証スクリプト
' 目的：RemoveAll と Nothing によるメモリ挙動の違いを理解する
' ==========================================================================
Option Explicit
Dim dict, i, loopCount
loopCount = 5 ' 処理の繰り返し回数
WScript.Echo "--- メモリ管理の検証を開始します ---"
For loopCount = 1 To 5
WScript.Echo "Iteration " & loopCount & " 開始"
' 1. Dictionaryオブジェクトの生成
' 新しい処理のたびに、新しいオブジェクトとして生成するのが最も安全です
Set dict = CreateObject("Scripting.Dictionary")
' 2. 大量データの投入シミュレーション（例：10万件）
For i = 1 To 100000
dict.Add "Key_" & i, "Value_" & i
Next
WScript.Echo " -> 10万件のデータを保持中..."
' --- ここで本来はデータ処理（集計や書き出し）を行います ---
' 3. 【重要】メモリ解放の儀式
' 処理が終わったら、RemoveAll で中身を消すのではなく、
' オブジェクト自体を Nothing にして、メモリをOSに返却します。
WScript.Echo " -> 処理完了。オブジェクトを破棄します。"
Set dict = Nothing ' これが「倉庫の解体」です。
' 次のループでは、再び CreateObject で「新しい（適切なサイズの）倉庫」が作られます。
Next
WScript.Echo "--- 全ての処理が正常に終了しました ---"💡 アーキテクトの視点：なぜ `Set dict = Nothing` が勝るのか？
上記のコードでは、ループの冒頭で `CreateObject` し、末尾で `Set dict = Nothing` をしています。
もし、あなたが `RemoveAll` を使って、ループの外で一度だけ `CreateObject` したDictionaryを使い回していたらどうなるでしょうか？
1. 1回目のループ：10万件入れる $\rightarrow$ 10万件分のメモリを確保。
2. `RemoveAll` する $\rightarrow$ 中身は空だが、10万件分のメモリ確保状態は維持される。
3. 2回目のループ：10万件入れる $\rightarrow$ すでに準備されている領域を使うので速い。
4. しかし、もし途中で「100万件」のデータが入るループが混ざったら？ $\rightarrow$ その瞬間、メモリ占有量は跳ね上がり、その後 `RemoveAll` しても、その巨大な占有量は解放されず、メモリを食いつぶし続けます。
これが、「メモリが右肩上がりに増えていく現象（メモリリークに似た挙動）」の正体です。
4. まとめ：これからのあなたへの指針
VBScriptで大規模な自動化を実現するために、以下の3つのルールを胸に刻んでください。
1. 「中身を消す」と「箱を消す」は別物である
- `RemoveAll` は掃除、`Nothing` は解体。
2. 巨大なデータを扱うなら、使い回さず「作り直せ」
- メモリの肥大化を防ぐには、処理の単位ごとにオブジェクトを `Nothing` で破棄し、新しく作り直す方が、長期的にはシステムの安定性に寄与します。
3. ライフサイクルを意識する
- 「この変数は、いつ、どこで、誰が使い終わるのか？」を常に考える癖をつけてください。
「とりあえず動く」コードは誰でも書けます。しかし、「長時間動かし続けても、サーバーやPCを壊さない」コードを書けるのが、真のエンジニアです。
ここをクリアすれば、VBScriptの基本はバッチリですよ。
さあ、自信を持って、次の自動化プロジェクトに挑んでください！
