VBScriptを掌握する極限の知見：FileSystemObjectの深層と安全なる資源管理
レガシーシステムの深淵において、VBScriptとWSH（Windows Script Host）はいまだにインフラストラクチャの神経系として脈々と生き続けている。新しい言語が持て囃される一方で、OSの奥底でバッチ処理、マスターデータの同期、ログのローテーションを黙々と支えているのは、他でもないこの枯れたスクリプト言語だ。
とりわけ、`Scripting.FileSystemObject`（以下、FSO）を用いたファイル・フォルダ操作は、業務自動化の成否を握る最も重要な基盤である。今回は、単なる「ファイル・フォルダの有無をチェックして作成・削除する」という初歩的なトピックを、プロフェッショナルなシステムアーキテクトの視点から極限まで掘り下げ、堅牢性（ロバストネス）とパフォーマンスを極めた実装パターンを提示する。
—
1. FSOの正体とCOMオブジェクトのライフサイクル
多くの開発者は、FSOを単なる「便利なファイル操作ライブラリ」としか見ていない。しかし、アーキテクトの視点から見れば、FSOはCOM（Component Object Model）インスタンスであり、背後でOSのリソース（ハンドル）を消費する重量級のオブジェクトである。
ガベージコレクションの幻影と明示的解放の義務
VBScriptのランタイムはスクリプト終了時に自動的にCOMオブジェクトを解放（`Release`）するが、これは長時間の常駐プロセスや、ループ内で数千回のI/Oを行うバッチ処理においては致命的なメモリリークの温床となる。
真に信頼性の高いスクリプトを書くならば、オブジェクトのスコープとライフサイクルはコードによって厳密に制御されなければならない。
Option Explicit
Sub ExecuteFileOperation()
Dim fso
‘ COMコンポーネントのインスタンス化
Set fso = CreateObject(“Scripting.FileSystemObject”)
On Error Resume Next
‘ — 業務ロジックの実行 —
Call SafeProcess(fso)
If Err.Number <> 0 Then
WScript.Echo “致命的エラー: ” & Err.Description
Err.Clear
End If
On Error GoTo 0
‘ 明示的なオブジェクトの破棄（リソースの即時解放）
Set fso = Nothing
End Sub
この `Set fso = Nothing` を怠るな。特に巨大なファイルを扱う自動化スクリプトにおいて、この一手間がプロセス肥大化を防ぐ防壁となる。
—
2. 存在確認の罠：Race Condition（競合状態）の排除
ファイルやフォルダの操作における最大の悪夢は、存在確認（Check）から実行（Action）までのわずかなタイムラグの間に、別プロセスによってリソースが改変・削除される TOCTOU（Time-of-Check to Time-of-Use）脆弱性 である。
VBScriptレベルのシングルスレッド環境であっても、ネットワーク共有フォルダ（UNCパス）経由のアクセスでは、ファイルサーバー上の遅延や他のタスクとの競合により、`FileExists` が `True` を返した直後にファイルが消える現象が起こりうる。
堅牢なエラーハンドリング・パターンの実装
したがって、「存在確認をしてから操作する」のではなく、「存在確認で大まかに弾きつつ、実行時はエラーをトラップして制御する」 という多重防衛（Defense in Depth）が必須となる。
以下に、ネットワーク共有環境や高負荷バッチに耐えうる、極限まで洗練されたファイル・フォルダ操作のテンプレートコードを提示する。
Option Explicit
‘ ==============================================================================
‘ 堅牢なフォルダ・ファイル操作のマスターパターン
‘ ==============================================================================
Sub Main()
Dim targetDir, targetFile
targetDir = “C:\Automation\DataStore”
targetFile = targetDir & “\master_202310.csv”
‘ 1. 安全なフォルダ作成
If EnsureDirectoryExists(targetDir) Then
WScript.Echo “フォルダの準備が完了しました: ” & targetDir
Else
WScript.Echo “フォルダの作成に失敗しました。”
Exit Sub
End If
‘ 2. 安全なファイル削除（存在する場合のみ）
If SafeDeleteFile(targetFile) Then
WScript.Echo “既存ファイルを安全に削除しました: ” & targetFile
End If
End Sub
‘ ——————————————————————————
‘ フォルダの存在確認と、なければ再帰的に作成する関数
‘ ——————————————————————————
Function EnsureDirectoryExists(ByVal folderPath)
Dim fso, parentPath
Set fso = CreateObject(“Scripting.FileSystemObject”)
EnsureDirectoryExists = False
On Error Resume Next
If Not fso.FolderExists(folderPath) Then
‘ 親フォルダの再帰的作成を考慮したFSOのCreateFolder
‘ 注: FSOのCreateFolderは階層が深いとエラーになるため、必要に応じて上位から構築する
fso.CreateFolder(folderPath)
If Err.Number <> 0 Then
‘ 競合などで他プロセスが作成した可能性も考慮
If Not fso.FolderExists(folderPath) Then
Err.Clear
Set fso = Nothing
Exit Function
End If
End If
End If
On Error GoTo 0
EnsureDirectoryExists = True
Set fso = Nothing
End Function
‘ ——————————————————————————
‘ 競合とアクセス権エラーをハンドリングする安全なファイル削除関数
‘ ——————————————————————————
Function SafeDeleteFile(ByVal filePath)
Dim fso
Set fso = CreateObject(“Scripting.FileSystemObject”)
SafeDeleteFile = False
On Error Resume Next
If fso.FileExists(filePath) Then
‘ 読み取り専用属性がついている場合の強制解除
Dim fileObj
Set fileObj = fso.GetFile(filePath)
If (fileObj.Attributes AND 1) = 1 Then ‘ 1 = ReadOnly
fileObj.Attributes = fileObj.Attributes Xor 1
End If
Set fileObj = Nothing
‘ 削除実行（他プロセスがロックしている場合はエラーになる）
fso.DeleteFile filePath, True ‘ 第2引数 True = 強制削除（ReadOnlyは弾かれるので上記処理と併用）
If Err.Number <> 0 Then
‘ ロックされている、またはアクセス権がない場合
WScript.Echo “警告: ファイルはロックされているかアクセス権がありません (” & Err.Description & “)”
Err.Clear
Set fso = Nothing
Exit Function
End If
End If
On Error GoTo 0
SafeDeleteFile = True
Set fso = Nothing
End Function
—
3. シニアエンジニアが知るべきレガシー環境の罠とパフォーマンス
長年運用されてきたシステムにおいて、FSOを用いたファイル操作にはいくつかの特有の「罠」が存在する。
① UNCパス（ネットワークドライブ）におけるパフォーマンス劣化
`\\server\share\folder` のようなUNCパスに対してFSOのメソッド（`FileExists` や `GetFolder` 等）を乱発すると、その都度SMBプロトコルを介したネットワークラウンドトリップが発生し、処理が極端に重くなる。
- 対策: ループ内での存在確認を避け、一度ローカルの変数にキャッシュするか、必要最低限のクエリに絞ること。
② 8.3形式（ショートファイルネーム）の罠
古いAPIや外部連携システムを呼び出す際、スペースを含むパス（例: `C:\Program Files\…`) が原因でエラーを引き起こすことがある。FSOには `GetFolder(path).ShortPath` や `GetFile(path).ShortPath` というメソッドが存在し、レガシーなCUIツール（`cmd.exe` や古いバッチファイル）へパスを渡す際に非常に有効である。
もし外部プロセス（WScript.Shellの `Run` メソッド等）と連携するファイル操作を行う場合は、パスのクォーテーション囲みだけでなく、このショートパスの活用も視野に入れるべきだ。
‘ スペースや日本語を含むパスをレガシーバッチに安全に渡す例
Dim fso, fileObj, shortPath
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set fileObj = fso.GetFile(“C:\My Documents\report 2023.txt”)
shortPath = fileObj.ShortPath ‘ 例: C:\MYDOCU~1\REPORT~1.TXT
Set fileObj = Nothing
Set fso = Nothing
—
結びにかえて：枯れた技術を極める美学
VBScriptやWSHは、モダンな開発者から見れば「前時代の遺物」に映るかもしれない。しかし、OSの根幹に密着し、追加のランタイムインストールすら不要で即座に動作するこの環境は、インフラストラクチャの自動化において今なお無類の強さを誇る。
FileSystemObjectをただのツールとして使うのではなく、その裏側にあるCOMのライフサイクル、OSのファイルロック機構、ネットワークの遅延までを意識してコードを彫り上げる。その職人技的アプローチこそが、止まらないシステム、真に信頼できるバックオフィスを構築するための唯一にして最大の武器となるのだ。
