こんにちは！VBScriptの世界へようこそ。
業務自動化の現場で、ファイルやフォルダの整理・削除処理を任されることはよくありますよね。
「よし、`DeleteFolder`で一気にフォルダを消去しよう！」
そう書いて動かしてみたものの、処理の途中でネットワークが瞬断したり、ファイルが別のプロセスにロックされていたりして、「中途半端にファイルが消えて、一部だけが残ってしまった……」という絶望的な状況に出会ったことはありませんか？
今回は、そんな修羅場を華麗に回避するための【安全削除デザイン】——一度テンポラリ領域に退避させてから一括消去するトランザクション風スクリプトの極意を伝授します。
ここをクリアすれば、あなたの書くVBScriptの信頼性はプロのエンジニアレベルに到達しますよ。一緒に本質を学んでいきましょう！
—
1. なぜ通常の `DeleteFolder` は危険なのか？
VBScriptでフォルダをごっそり消すとき、お馴染みなのが `FileSystemObject` (FSO) の `DeleteFolder` メソッドですね。
‘ 【危険な例】
Dim fso
Set fso = CreateObject(“Scripting.FileSystemObject”)
fso.DeleteFolder “C:\Data\TargetFolder”, True
一見、とてもシンプルで問題なさそうに見えます。しかし、この方法には「アトミック性（不可分性）」がないという致命的な弱点があります。
予期せぬエラーが引き起こす「ゾンビフォルダ」
`DeleteFolder` は、指定されたフォルダの中にあるファイルを1つずつ、あるいは階層ごとに地道に削除していきます。もし、1,000個あるファイルの「500個目」を消している最中に以下のようなトラブルが起きるとどうなるでしょうか？
- 突然のネットワーク切断（共有フォルダの場合）
- ほかのアプリによるファイルの排他ロック（「ファイルが開かれているため操作できません」）
- タイムアウトや予期せぬスクリプト異常終了
結果として、「前半のファイルは消えたけれど、後半のファイルとフォルダ構造はそのまま残った中途半端な残骸（ゾンビ）」が誕生します。これでは、後続の処理で「あれ？フォルダはあるのに中のデータがないぞ？」とバグの原因になってしまいます。
—
2. 解決策：【安全削除デザイン】のアーキテクチャ
この問題を解決するのが、データベースのトランザクション思想をファイル操作に応用した「一時退避・一括消去パターン」です。
処理の流れ（アルゴリズム）
1. 【リネーム / 移動フェーズ】
削除対象のフォルダを、同じドライブ内（または安全なテンポラリ領域）の「誰もアクセスしない一時的な名前」に一瞬で移動（`MoveFolder`）させます。
- ※同一ボリューム内の `MoveFolder` は、OS内部で「名前の付け替え（ポインタの書き換え）」だけで終わるため、ファイル数に関わらず一瞬（ミリ秒単位）で完了します。ロックがかかっていなければ、ここでエラーを検知できます。
2. 【本削除フェーズ】
安全な別名に隔離されたフォルダに対して、`DeleteFolder` を実行します。もしここで万が一エラーが起きたとしても、ユーザーから見える本来の場所には既にフォルダはありません。「処理が失敗した」という事実だけが綺麗に残ります。
—
3. 実装コード：実務でそのまま使えるトランザクション削除
それでは、現場で即戦力として使える堅牢なVBScriptコードを公開します。コピペしてパスを書き換えればすぐにテストできます。
‘ ==============================================================================
‘ スクリプト名: SafeDeleteFolder.vbs
‘ 概要: ネットワーク切断やロックによる不完全削除を防ぐ安全フォルダ削除サンプル
‘ ==============================================================================
Option Explicit
‘ メイン処理の実行
Call SafeDelete(“C:\Work\TargetFolder”)
Sub SafeDelete(targetPath)
Dim fso, parentDir, tempFolderName, tempPath
Dim shell, uniqueID
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ 1. 削除対象が存在するかチェック
If Not fso.FolderExists(targetPath) Then
WScript.Echo “対象のフォルダが存在しません: ” & targetPath
Exit Sub
End If
‘ 2. 同一階層に生成するユニークな一時退避フォルダ名を作成
‘ (UUIDの代わりにタイムスタンプとランダム値を使用)
Randomize
uniqueID = Year(Now) & Month(Now) & Day(Now) & Hour(Now) & Minute(Now) & Second(Now) & “_” & Int((9999 – 1000 + 1) Rnd + 1000)
parentDir = fso.GetParentFolderName(targetPath)
tempFolderName = “_Deleting_” & uniqueID
tempPath = fso.BuildPath(parentDir, tempFolderName)
On Error Resume Next
‘ 3. 【フェーズ1：一時退避】同一ボリューム内でのMoveFolderは一瞬で終わる
WScript.Echo “Step 1: フォルダを安全領域に退避中…”
fso.MoveFolder targetPath, tempPath
If Err.Number <> 0 Then
‘ 移動に失敗した場合（ファイルが使用中、権限エラーなど）
WScript.Echo “【エラー】フォルダの退避に失敗しました。他のプロセスが使用中の可能性があります。” & vbCrLf & “詳細: ” & Err.Description
On Error GoTo 0
Exit Sub
End If
‘ 4. 【フェーズ2：一括消去】退避完了したクローンをごっそり削除
WScript.Echo “Step 2: 退避したフォルダの完全消去を実行中…”
fso.DeleteFolder tempPath, True
If Err.Number <> 0 Then
‘ 稀に発生する削除失敗時のリカバリ（必要に応じてログ出力やアラート）
WScript.Echo “【警告】退避フォルダの削除に失敗しました（隔離状態）。パス: ” & tempPath
Else
WScript.Echo “【成功】フォルダの安全削除が完了しました。”
End If
On Error GoTo 0
Set fso = Nothing
End Sub
—
4. コードの深掘り・エンジニアの知見
このコードには、VBScriptを極めたエンジニアならではのこだわりが詰まっています。ポイントを解説しましょう。
① なぜ「同一ボリューム内」での移動なのか？
FSOの `MoveFolder` は、移動元と移動先が同じハードディスク（ボリューム）内であれば、実データをコピーするのではなく、ファイルシステム上の目次（インデックス）を書き換えるだけで完了します。
そのため、中に数万個のファイルが入っていようとも、処理は一瞬で終わります。ネットワークドライブをまたぐ移動だとコピーになってしまい遅くなるため、「削除対象の親フォルダと同じ場所へ一時退避させる」のがこのデザインの肝です。
② 衝突を防ぐユニークな一時名
もし一時フォルダの名前を `_TempDelete` など固定にしてしまうと、前回スクリプトが異常終了した際にゴミが残り、次回実行時に名前が衝突してエラーになります。
そのため、`年月日時分秒 + 4桁の乱数` を組み合わせて絶対に被らないユニークな名前（例: `_Deleting_20231024153045_8492`）を動的に生成しています。
③ `On Error Resume Next` の正しい使い方
VBScriptでは、エラーハンドリングを怠るとスクリプトがその場で強制終了し、黒い画面（コマンドプロンプト）のままフリーズしたようになります。
今回は「エラーが起きたときに、中途半端な状態で放置せず、メッセージを出して安全に抜ける」ためにエラー制御を適切に挟んでいます。
—
まとめ
今回は、VBScriptにおけるファイルシステム操作の安全性劇的向上テクニック「一時退避・一括消去トランザクション風スクリプト」を解説しました。
- 直接 `DeleteFolder` はリスクが高い（ネットワークやロックによる中途半端な消え残りを防げない）。
- 一度 `MoveFolder` で同一階層の別名へ退避させることで、アトミック性を担保する。
- 同一ボリューム内なら移動は一瞬。
マクロの記録や、ただ動くだけのコードから一歩抜け出して、「異常系に強いコード」が書けるようになると、業務自動化エンジニアとしての信頼度がグッと跳ね上がります。
ぜひ、日々のメンテナンス作業やバッチファイルにこのデザインを取り入れてみてください。「おっ、やるな！」と言われること間違いなしですよ。それでは、また次の知見でお会いしましょう！
