【テクニカル・上級編】【実務中級者向け】FSOファイルコピー実行前に空き容量（AvailableSpace）をチェックするガードロジックの実装 – VBScript (Visual Basic Scripting Edition)解析バイブル

決定論的なシステム設計のために：FSOにおけるAvailableSpaceを用いた先行ガードロジックの極意

業務自動化の現場において、スクリプトは単なる「作業の代替」であってはならない。それは、システムの整合性を担保し、予期せぬ不整合（Corruption）を未然に防ぐ「防壁」であるべきだ。

多くの初級者が書くスクリプトは、`FileSystemObject.CopyFile` を呼び出すだけで終わる。しかし、大量のデータ転送やバックアップを伴うミッションクリティカルなバッチ処理において、その「無防備な実装」は致命的な欠陥となる。コピーの途中でディスク容量が枯渇し、書き込みが中途半端に終了したファイルが残る――これは単なるエラーではない。システムの信頼性を根底から破壊する「汚染」である。

本稿では、VBScriptを用いたファイル操作において、`FileSystemObject (FSO)` の `AvailableSpace` プロパティを駆使し、いかにして「決定論的な（Deterministic）」事前判定ロジックを実装すべきか、その深淵を解説する。

1. 抽象化の罠：なぜ「コピーしてエラーを待つ」のでは不十分なのか

標準的なエラーハンドリング（`On Error Resume Next`）を用いて、コピー失敗後にエラーを捕捉する手法は、一見効率的に見える。しかし、アーキテクトの視点に立てば、これは極めて脆弱な設計だ。

1. 不完全なデータの残留: コピーが途中で失敗した場合、転送先には「中途半端なサイズのファイル」が残る。これが後続の処理（集計や解析）に読み込まれた場合、システム全体に連鎖的なエラーを引き起こす。
2. リソースのロック: エラー発生時にオブジェクトが正しく解放されていないと、ファイルハンドルがロックされたままになり、次回のリカバリ実行を阻害する。
3. I/Oコストの浪費: 数GB、数TBの転送を行っている最中に容量不足が判明した場合、その間費やしたI/Oリソースと時間はすべて無駄となる。

真に堅牢なシステムは、「実行可能であるという確証」を得てから、初めて重いI/Oを開始する。

2. 実装戦略：AvailableSpaceによるガードロジック

FSOの `Drive` オブジェクトが持つ `AvailableSpace` プロパティは、指定したドライブの空き容量をバイト単位で返す。これを利用して、コピー対象の総サイズと、転送先ドライブの空き容量を比較するガードロジックを構築する。

ここで重要なのは、単なる比較ではなく、「マージン（余裕）」の概念を持つことだ。

実践的実装例 (VBScript)

以下のコードは、単なるコピー処理ではなく、プロフェッショナルな運用に耐えうる構造を備えた実装例である。

'**
' Module: FileTransferGuard
' Description: 容量チェックを含む堅牢なファイルコピーモジュール
'**
Option Explicit

' 定数定義：システムの安定性を担保するためのマージン（例: 100MB）
Const SAFE_MARGIN_BYTES = 104857600 

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

' メインプロセス実行例
' Usage: SafeCopyFile "C:\Source\LargeData.zip", "D:\Backup\LargeData.zip"
SafeCopyFile "C:\Source\Data.zip", "D:\Backup\Data.zip"

' オブジェクトの明示的な解放（メモリリーク防止）
Set fso = Nothing

'------------------------------------------------------------------------------
' Function: SafeCopyFile
' Purpose: 容量チェックを行い、安全が確認された場合のみコピーを実行する
'------------------------------------------------------------------------------
Sub SafeCopyFile(strSource, strDest)
    Dim objSrcFile, objDestDrive, lngRequiredSpace, lngAvailableSpace
    Dim strDestDir
    
    On Error Resume Next ' エラーハンドリングの開始

    ' 1. ソースファイルの存在確認
    If Not fso.FileExists(strSource) Then
        WScript.Echo "Error: Source file not found: " & strSource
        Exit Sub
    End If

    ' 2. コピー対象のサイズ取得
    Set objSrcFile = fso.GetFile(strSource)
    lngRequiredSpace = objSrcFile.Size
    
    ' 3. 転送先ディレクトリの解析
    strDestDir = fso.GetParentFolderName(strDest)
    If strDestDir = "" Then strDestDir = "." ' カレントディレクトリの場合
    
    ' 4. 転送先ドライブの空き容量取得
    ' GetDrive を使用して、パスからドライブオブジェクトを特定する
    Set objDestDrive = fso.GetDrive(strDestDir)
    
    If Err.Number <> 0 Then
        WScript.Echo "Error: Cannot access destination drive. " & Err.Description
        Err.Clear
        Exit Sub
    End If
    
    lngAvailableSpace = objDestDrive.AvailableSpace

    ' 5. ガードロジック：空き容量 ≧ (必要サイズ + 安全マージン)
    ' ここで決定論的な判定を行う
    If lngAvailableSpace < (lngRequiredSpace + SAFE_MARGIN_BYTES) Then
        WScript.Echo "Critical Error: Insufficient disk space on " & objDestDrive.DriveLetter
        WScript.Echo "Required (with margin): " & (lngRequiredSpace + SAFE_MARGIN_BYTES) & " bytes"
        WScript.Echo "Available: " & lngAvailableSpace & " bytes"
        ' ここで処理を中断し、不完全な書き込みを未然に防ぐ
        Exit Sub
    End If

    ' 6. コピー実行
    WScript.Echo "Space check passed. Proceeding with copy..."
    fso.CopyFile strSource, strDest, True ' True = 上書き許可

    ' 7. 結果判定
    If Err.Number <> 0 Then
        WScript.Echo "Error during copy: " & Err.Description
    Else
        WScript.Echo "Success: File copied successfully."
    End If

    ' 8. オブジェクトの明示的解放
    ' スコープを抜ける前に確実に解放することで、ファイルロックの残留を防ぐ
    Set objSrcFile = Nothing
    Set objDestDrive = Nothing
    On Error GoTo 0 ' エラーハンドリングの解除
End Sub

3. アーキテクトの視点：極限の知見

コードを書くだけでは、シニアエンジニアとは呼べない。実装の背後にある「リスク」を制御できて初めて、プロフェッショナルである。

3.1. レースコンディション（競合状態）への理解

上記のコードは、チェックの瞬間に容量が十分であることを保証する。しかし、「チェックした直後、コピーを開始するまでの間に、他のプロセスがディスクを消費する」という可能性、すなわちレースコンディションは排除できない。
これを完全に防ぐことはOSの制約上困難だが、だからこそ `SAFE_MARGIN_BYTES`（安全マージン）の設定が重要となる。システム環境に合わせて、このマージンを動的に、あるいは保守的に設定する判断力が求められる。

3.2. オブジェクトのライフサイクル管理

VBScriptにおけるCOMオブジェクトの解放は、しばしば軽視される。特にループ内で大量のファイルを処理する場合、`Set obj = Nothing` を怠ると、メモリ消費が指数関数的に増大し、最悪の場合、スクリプト自体が `Out of Memory` でクラッシュする。
また、`GetFile` や `GetDrive` で取得したオブジェクトは、ファイルハンドルを保持し続けることがある。エラー発生時であっても、必ず `Nothing` を代入し、リソースを OS に返却する習慣を徹底せよ。

3.3. Windows APIへの昇華（レガシー環境からの脱却）

もし君が、FSOのオーバーヘッドすら許容できない、あるいはより精密なディスク情報の取得（クォータ制限下のユーザー容量など）を求めるなら、Windows API `GetDiskFreeSpaceExW` の呼び出しを検討すべきだ。
VBScript単体では直接のAPIコールは不可能だが、WSH (Windows Script Host) を経由した外部プロセスの利用や、将来的な VB.NET / PowerShell への移行を見据えた「インターフェースの抽象化」を設計段階で行っておくことが、真のアーキテクトの仕事である。

結論

ファイル操作におけるガードロジックの実装は、単なる「エラー対策」ではない。それは、「システムが予測可能な挙動を維持するための、設計思想の現れ」である。

`AvailableSpace` を使い、マージンを考慮し、オブジェクトのライフサイクルを厳格に管理する。この一見地味な積み重ねこそが、大規模なレガシーシステムを支える、揺るぎない信頼性を生むのである。