【テクニカル・上級編】【初心者向け】Scripting.FileSystemObjectの基本：インスタンス生成とFileExists/FolderExistsによる safe な存在チェック – VBScript (Visual Basic Scripting Edition)解析バイブル

VBScriptを掌握する極限の知見：FSOのライフサイクルマネジメントと堅牢な存在判定

レガシーシステムの深部、あるいはWindows環境における軽量な自動化スクリプトの基盤として、VBScript（Visual Basic Scripting Edition）は今なお現役で稼働し続けている。モダンな言語全盛の現代においても、インフラの初期セットアップやタスクスケジューラからの簡易バッチ実行において、ゼロ依存で即座に動作するVBScriptの価値が揺らぐことはない。

しかし、稚拙に書かれたVBScriptは、メモリリーク、COMコンポーネントの解放漏れ、そして予期せぬファイルI/O例外によってシステムの信頼性を静かに蝕む。

本稿では、ファイルシステム操作の要である `Scripting.FileSystemObject`（以下、FSO）を取り上げ、単なる入門の枠を超えた「実戦で絶対に破綻しないオブジェクトのライフサイクル管理」と「安全な存在チェック（Safe Existence Check）」の極意を、チーフアーキテクトの視点から徹底的に解説する。

—

1. FSOインスタンス生成のアンチパターンと最適解

VBScriptで最も頻繁に犯される過ちは、グローバルスコープでの漫然としたオブジェクト生成と、それに伴うメモリ管理の軽視である。

遅延バインディング（Late Binding）の現実

VBScriptでは、型宣言が存在しない。すべては実行時解決（遅延バインディング）によって処理される。

‘ 【アンチパターン】毎回、または無造作に生成されるFSO
Set fso = CreateObject(“Scripting.FileSystemObject”)

このコードの何が問題か。`CreateObject` はCOM（Component Object Model）のインスタンスをプロセスヒープ上に生成する。スクリプトが肥大化し、あちこちのサブルーチンでこの記述が散在すると、COM参照カウンタの管理が曖昧になり、VBScriptホストプロセス（`wscript.exe` / `cscript.exe`）が終了するまでメモリリークの原因となる。特に、IIS（Active Server Pages）や常駐型のWSHスクリプトでこれをやると、じわじわとリソースが枯渇していく。

堅牢なインスタンス管理と明示的解放

プロフェッショナルなスクリプトとは、「いつ生成し、いつ完全にメモリからパージするか」が完全に制御されているものである。

Option Explicit

‘ メイン処理のエントリポイント
Sub Main()
Dim fso
‘ 1. 必要最小限のスコープで生成
Set fso = CreateObject(“Scripting.FileSystemObject”)

‘ 業務ロジックの実行
Call ProcessFiles(fso)

‘ 2. 明示的な参照の破棄（Nothing代入）
Set fso = Nothing
End Sub

Sub ProcessFiles(ByRef fso)
‘ 呼び出し元からFSOを参照渡しし、インスタンスの乱造を防ぐ
If fso.FileExists(“C:\Logs\app.log”) Then
‘ 処理
End If
End Sub

Main

【知見】
`Set fso = Nothing` を実行することで、COMオブジェクトの参照カウントを直ちにデクリメントし、ガベージコレクションの完了を待たずにメモリを解放する。これが大規模なバッチ処理におけるメモリ安定化の鉄則である。

—

2. 存在チェック（FileExists / FolderExists）の哲学

ファイルやフォルダを操作する際、存在確認を行わずにいきなり `OpenTextFile` や `DeleteFile` を実行するのは、システム開発における「罪」に等しい。ランタイムエラー（エラー番号 53: ファイルが見つかりません、等）が発生し、スクリプトは異常終了する。

しかし、単に `FileExists` を使えばいいというものではない。ここにはOSレベルのファイルシステム競合と権限（ACL）の壁が存在する。

基本的な安全判定ロジック

まずは、FSOが提供するネイティブなメソッドを用いた安全な判定の基本形を見てみ5。

Dim fso, targetPath
Set fso = CreateObject(“Scripting.FileSystemObject”)

targetPath = “C:\Data\secure_config.ini”

‘ 1. ファイル存在チェック
If fso.FileExists(targetPath) Then
WScript.Echo “ファイルが存在します。安全に処理を開始します。”
‘ 処理ロジック
Else
WScript.Echo “警告: 対象ファイルが存在しません。スキップします。”
End If

‘ 2. フォルダ存在チェック
Dim targetDir
targetDir = “C:\Data\Archive”

If fso.FolderExists(targetDir) Then
WScript.Echo “フォルダが存在します。”
Else
‘ フォルダが存在しない場合は動的生成する（フォルダーの階層作成）
fso.CreateFolder(targetDir)
WScript.Echo “フォルダを新規作成しました。”
End If

Set fso = Nothing

—

3. シニアエンジニアが知るべき「見えない罠」と高度なハンドリング

前項のコードは基本だが、実際のEnterprise環境ではこれだけでは不十分だ。以下のリスクに備えなければならない。

1. ネットワークレイテンシと競合状態 (Race Condition):
UNCパス（`\\server\share\file.txt`）を対象とする場合、`FileExists` で「True」が返った直後に、別プロセスやネットワーク切断によってファイルが消滅する可能性がある。
2. アクセス権限（ACL）の隠蔽:
ファイルは存在するが、実行ユーザーに「読み取り権限」がない場合、`FileExists` は `True` を返すことがある。しかし、その後の `OpenTextFile` は権限エラー（Permission denied）でクラッシュする。

堅牢性を極めたラッパー関数の実装

これらの例外を完全に包み込み、システムを絶対に落とさないための「セーフ・ファイルチェック関数」の設計を示す。

Option Explicit

Dim fso
Set fso = CreateObject(“Scripting.FileSystemObject”)

‘ テスト実行
If IsFileReadyForRead(fso, “C:\Data\target.txt”) Then
WScript.Echo “ファイルは確実に読み取り可能です。”
Else
WScript.Echo “ファイルを読み込めません（存在しないか、権限がないか、排他制御中です）。”
End If

Set fso = Nothing

‘ ==============================================================================
‘ 関数名: IsFileReadyForRead
‘ 概要 : ファイルの存在、および実際に読み取り可能かを判定する堅牢なラッパー
‘ ==============================================================================
Function IsFileReadyForRead(ByRef fso, ByVal filePath)
On Error Resume Next ‘ 予期せぬCOM例外をトラップ

IsFileReadyForRead = False

‘ 1. 物理存在チェック
If Not fso.FileExists(filePath) Then
Exit Function
End If

‘ 2. 実際にストリームを開けるかテスト（アクセス権と排他制御の確認）
‘ ForReading = 1, TriStateFalse = 0 (ASCII)
Dim ts
Set ts = fso.OpenTextFile(filePath, 1, False, 0)

If Err.Number <> 0 Then
‘ 権限エラーや排他ロック中であればここでトラップされる
Err.Clear
Exit Function
End If

‘ 正常に開けたのでクリーンアップ
ts.Close
Set ts = Nothing

If Err.Number = 0 Then
IsFileReadyForRead = True
End If

On Error GoTo 0 ‘ エラー監視をデフォルトに戻す
End Function

このコードのアーキテクチャ的優位性

• `On Error Resume Next` の局所化: VBScriptのエラーハンドリングはグローバルになりがちだが、関数内に閉じ込め、かつ処理の直後に `Err.Clear` と `On Error GoTo 0` でリセットしている。
• 実効性の担保: 単なる「ファイルの存在（Existence）」だけでなく、「アクセスの可否（Readability）」まで担保することで、後続のメイン処理におけるクラッシュを100%未然に防ぐ。

—

最後に：レガシーコードを「資産」に変えるために

VBScriptによるファイル操作は、一見すると泥臭く、古い技術に思えるかもしれない。しかし、そこにエンジニアリングの知見を注ぎ込むことで、モダンな言語に匹敵する堅牢で保守性の高いシステム基盤へと昇華させることが可能だ。

FSOのライフサイクルを厳格に管理し、常に「存在」の裏にある「状態」と「権限」に意識を向けること。この細部へのこだわりこそが、トラブルフリーな自動化スクリプトを生み出す唯一の道である。現場のコードを今すぐ見直し、無駄なインスタンス生成や無防備なファイルアクセスがないか確認してほしい。