【アクセス拒否対策】FSOのForceパラメータと属性制御の極限最適化：レガシーファイル操作の罠を断つ
レガシーシステムの暗部において、ファイルシステムオブジェクト（FSO: `Scripting.FileSystemObject`）ほど、その手軽さゆえに開発者を油断させ、本番環境で痛烈なしっぺ返しを与えるコンポーネントはない。
特に、cronやタスクスケジューラによって無人で稼働するバッチ処理において、`CreateTextFile` による上書き失敗や、`DeleteFile` による「アクセスが拒否されました (Path/File access error)」の発生は、システムの信頼性を根底から揺るがす致命傷となり得ます。
本稿では、VBScriptにおけるファイル・フォルダ操作の極限領域において、OSのファイル属性とFSOの内部仕様がどのように衝突し、いかにしてそれを事前予測・完全制御すべきか、その全貌を解き明かします。
—
1. 根本原因の解剖：なぜ「アクセス拒否」は起きるのか
Windowsファイルシステム（NTFS/FAT32）において、ファイルには「読み取り専用（Read-only）」「隠しファイル（Hidden）」「システム（System）」などの属性フラグが存在します。
VBScriptで `CreateTextFile` の第2引数（`overwrite`）を `True` に設定してファイルを生成しようとした場合、あるいは `DeleteFile` を実行した場合、FSOは裏でWindows API（`CreateFile` や `DeleteFileW`）を呼び出しています。
ここで発生する罠は以下の2点です。
1. `CreateTextFile` の限界:
既存ファイルが「読み取り専用」属性を持っている場合、`overwrite:=True` を指定していても、FSOはファイルを直接破壊して新規作成することができず、即座にエラー（実行時エラー 70: 書き込みできません）を返します。
2. `DeleteFile` の `Force` パラメータの仕様:
`DeleteFile` の第2引数である `force`（`bDeleteReadOnly`）を `True` に設定していれば、理論上は読み取り専用属性を無視して削除可能です。しかし、OSレベルのセキュリティ権限（ACL）不足や、別プロセスによる排他ロック（Sharing Violation）が原因である場合、`force` を指定してもエラーを回避できません。
—
2. FSOメソッドの仕様の裏側と正しい使い分け
まずは、FSOが提供する破壊的メソッドのシグネチャと、そのパラメータの真の挙動を確認します。
`CreateTextFile` メソッド
object.CreateTextFile(filename[, overwrite[, unicode]])
- `overwrite`: 既存ファイルが存在する場合の上書き許可（Boolean）。ただし、前述の通り読み取り専用属性がついているファイルに対しては無力です。
`DeleteFile` メソッド
object.DeleteFile(filespec[, force])
- `force`: `True` の場合、読み取り専用属性が付与されたファイルであっても強制削除を試みます。`False`（省略時）の場合はエラーとなります。
しかし、実務の現場において「とりあえず `force = True` にしておけば安全」という設計は、予期せぬ重要ファイルの消失や、根本的な権限エラーの隠蔽（デバッグ困難化）を招くため、プロフェッショナルなアーキテクトとしては採用できません。
—
3. 実践：事前権限・属性チェックとForce制御のベストプラクティス
真に堅牢なVBScriptバッチを構築するためには、「操作前の属性確認・剥奪」と「適切なエラーハンドリング」を明示的に行う必要があります。
以下のコードは、読み取り専用属性を持つファイルであっても、安全に属性を解除（または確認）した上で、確実に上書き・削除を行うプロダクション品質のテンプレートです。
Option Explicit
‘ —————————————————————–
‘ メイン処理エントリポイント
‘ —————————————————————–
Sub Main()
Dim targetPath
targetPath = “C:\Data\Output\target_report.txt”
‘ 安全なファイル上書き生成の実行例
Call SafeCreateTextFile(targetPath, “極限最適化されたログデータ出力テスト”)
‘ 安全なファイル削除の実行例
Call SafeDeleteFile(targetPath)
End Sub
‘ =================================================================
‘ 堅牢なテキストファイル生成（読み取り専用属性の自動解除つき）
‘ =================================================================
Sub SafeCreateTextFile(filePath, fileContent)
Dim fso, fileObj, ts
Set fso = CreateObject(“Scripting.FileSystemObject”)
On Error Resume Next
‘ 1. ファイルが既に存在するかチェック
If fso.FileExists(filePath) Then
Set fileObj = fso.GetFile(filePath)
‘ 2. 読み取り専用属性が付与されている場合は強制解除
‘ 属性値のビット演算: ReadOnly (1) をクリアする
If (fileObj.Attributes And 1) = 1 Then
fileObj.Attributes = fileObj.Attributes Xor 1
If Err.Number <> 0 Then
WScript.Echo “[ERROR] 属性の変更に失敗しました: ” & filePath & ” (Error: ” & Err.Description & “)”
Exit Sub
End If
End If
Set fileObj = Nothing
End If
‘ 3. テキストファイルの作成（上書き）
‘ overwrite = True を指定しつつ、属性起因のエラーを根絶した状態で実行
Set ts = fso.CreateTextFile(filePath, True, False)
If Err.Number <> 0 Then
WScript.Echo “[CRITICAL] ファイル作成失敗: ” & filePath & ” (Error: ” & Err.Description & “)”
On Error GoTo 0
Exit Sub
End If
ts.Write fileContent
ts.Close
On Error GoTo 0
Set ts = Nothing
Set fso = Nothing
WScript.Echo “[INFO] ファイルの書き込みに成功しました: ” & filePath
End Sub
‘ =================================================================
‘ 堅牢なファイル削除（Forceパラメータと属性剥奪のハイブリッド）
‘ =================================================================
Sub SafeDeleteFile(filePath)
Dim fso, fileObj
Set fso = CreateObject(“Scripting.FileSystemObject”)
On Error Resume Next
If Not fso.FileExists(filePath) Then
WScript.Echo “[WARN] 削除対象が存在しません: ” & filePath
Exit Sub
End If
Set fileObj = fso.GetFile(filePath)
‘ 読み取り専用属性の明示的剥奪
If (fileObj.Attributes And 1) = 1 Then
fileObj.Attributes = fileObj.Attributes Xor 1
End If
Set fileObj = Nothing
‘ FSOのDeleteFile実行 (第2引数にTrueを指定してForce削除)
fso.DeleteFile filePath, True
If Err.Number <> 0 Then
WScript.Echo “[CRITICAL] ファイル削除失敗: ” & filePath & ” (Error: ” & Err.Description & ” – 排他ロックの可能性があります)”
Err.Clear
Else
WScript.Echo “[INFO] ファイルを完全に削除しました: ” & filePath
End If
On Error GoTo 0
Set fso = Nothing
End Sub
‘ 処理実行
Main()
—
4. チーフアーキテクトからの警鐘：メモリ管理とCOMのライフサイクル
VBScriptにおけるFSOやテキストストリーム（`TextStream`）の運用において、最も見落とされがちなのがCOMオブジェクトの参照解放（メモリ最適化）です。
バッチ処理が何千回、何万回とループする中で `CreateObject(“Scripting.FileSystemObject”)` を乱用し、さらに生成したオブジェクトを `Nothing` に明示的に代座させないコードは、確実にVBScriptランタイムにおけるメモリリークを引き起こします。
アーキテクチャ上の鉄則
1. FSOインスタンスのスコープ最適化: ループの内側で `CreateObject` を呼ぶ愚を犯してはならない。ループの外側で一度だけインスタンスを生成し、使い回すのが定石である。
2. オブジェクトの明示的破棄: 処理が完了した `TextStream` や `File` オブジェクトは、スコープを抜ける前に必ず `Set xxx = Nothing` を明記し、COM参照カウントを即座にデクリメントさせること。ガベージコレクションの気まぐれに命を預けてはならない。
レガシーシステムであっても、コードの気高さを失ってはならない。確実な属性制御とリソース管理によって、止まらないシステムを構築し続けよう。
