【テクニカル・上級編】【初心者向け】図面を開く前の「ファイル存在チェック」：Dir関数とFSOの使い分けによるエラー回避 – AutoCAD VBA解析バイブル

【AutoCAD VBA極限解説】図面を開く前の「ファイル存在チェック」：Dir関数とFSOの使い分けによるエラー回避

世の多くのVBA解説サイトは、「`Documents.Open`の前には`Dir`関数を使いましょう」という教科書的な記述で終わっている。しかし、実務で何万枚もの図面をバッチ処理するシニアエンジニアや、複雑な社内PDM/PLMシステムと連携するアーキテクトにとって、そのアプローチはあまりにもナイーブであり、致命的なシステム停止を引き起こす爆弾を抱えているに等しい。

ネットワークの遅延、UNCパスの罠、ファイルロックの競合、そしてVBA特有のCOMオブジェクトのメモリ管理。これらを無視した自動化は、実運用において必ず破綻する。

今回は、AutoCAD VBAにおける図面ファイルオープン前の存在検証について、レガシーとモダンの境界線を踏み越えた極限の知見を公開する。

—

1. なぜ「存在しないファイルを開く」とCAD自動化は崩壊するのか？

AutoCADの`Documents.Open`メソッドは、指定されたパスにファイルが存在しない場合、あるいは何らかの理由で読み込めない場合に容赦なく「実行時エラー」を発生させる。

エラーハンドリング（`On Error Resume Next`など）でその場しのぎをすることは容易だが、大規模な図面群のバッチ処理においてこれを乱用すると、以下の深刻な問題を引き起こす。

• COM例外のリーク: AutoCADの内部プロセスとVBAランタイムの間で例外処理が頻発すると、メモリリークやオートメーションサーバーのフリーズ（ゾンビプロセスの発生）を誘発する。
• ネットワーク切断時のハングアップ: 存在しないUNCパス（例: `\\Server\Share\Drawing.dwg`）を評価する際、OSのタイムアウトによりCADプロセス全体が数秒〜数分間無応答になる。

したがって、「開く前に完璧に検証し、例外を出さないこと」が、堅牢なCADシステムの絶対要件となる。

—

2. 標準「Dir関数」の限界と、レガシー環境におけるリスク

VBAの組み込み関数である`Dir`は、手軽にファイルの存在を確認できるため広く使われている。しかし、ネットワークドライブ環境や大規模なファイル群を扱うシステムにおいて、`Dir`には無視できない仕様上の欠点がある。

Dir関数の特性と罠

1. ワイルドカードの処理と状態保持: `Dir`は内部でファイル検索のセッションを保持するため、ループ内で別の`Dir`呼び出しを行うと、予期せぬ挙動（無限ループや早期終了）を引き起こす。
2. ロングパス（MAX_PATH / 260文字超）への無力: 近年のWindows環境では260文字を超えるパスが許可されつつあるが、レガシーな`Dir`関数はこれを正常に処理できず、誤った「存在しない」判定を下すことがある。

—

3. 現代の選択肢：FileSystemObject (FSO) による堅牢な検証

ファイルシステムの詳細な操作や存在確認には、`Scripting.FileSystemObject`を使用するのがモダンなアプローチである。オブジェクト指向的に扱えるだけでなく、プロパティの安全性が高い。

しかし、FSOを使う際にも「オブジェクトのライフサイクル」を完全にコントロールしなければならない。VBAにおけるCOMオブジェクトは、明示的に解放しない限りメモリ上に残存し続ける。

—

4. 【実装コード】極限まで最適化されたファイル検証・オープン基盤

以下のコードは、単なる存在チェックにとどまらず、UNCパスの考慮、FSOの適切なメモリ解放、そしてAutoCADのドキュメントコレクションへの安全なアタッチメントまでを網羅した、実務仕様のプロシージャである。

Option Explicit

‘ =================================================================================
‘ 概要: 指定されたDWGファイルの存在を安全に検証し、エラーなくAutoCADで開く
‘ 特徴: FileSystemObjectによる厳密なパス検証、COMメモリの明示的解放、UNC対応
‘ =================================================================================
Public Sub SafeOpenDrawing(ByVal targetPath As String)

‘ 1. パスの前処理（空白の除去など）
targetPath = Trim$(targetPath)

If targetPath = “” Then
MsgBox “パスが指定されていません。”, vbCritical, “致命的エラー”
Exit Sub
End If

‘ 2. FileSystemObjectのインスタンス化 (早めのバインディングを推奨する場合は参照設定に追加)
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)

Dim isFileValid As Boolean
isFileValid = False

‘ 3. 例外を許容しない厳密な存在チェック
On Error GoTo ErrorHandler

‘ FSOのFileExistsはネットワークパスに対しても比較的安定して動作する
If fso.FileExists(targetPath) Then
‘ 拡張子がDWGであることの念のための確認
If LCase$(fso.GetExtensionName(targetPath)) = “dwg” Then
isFileValid = True
End If
End If

‘ FSOオブジェクトの即時解放（メモリ最適化の極意：スコープを最小限にし直ちにNothing化）
Set fso = Nothing

‘ 4. 検証結果に基づくオープン処理
If isFileValid Then
OpenDocumentUnsafe targetPath
Else
MsgBox “対象ファイルが存在しないか、有効なDWGファイルではありません。” & vbCrLf & _
“パス: ” & targetPath, vbExclamation, “検証エラー”
End If

Exit Sub

ErrorHandler:
‘ 予期せぬエラー（ネットワーク切断等）が発生した場合の安全なクリーンアップ
If Not fso Is Nothing Then Set fso = Nothing

MsgBox “ファイルの検証中に予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“詳細: ” & Err.Description, vbCritical, “システム例外”

End Sub

‘ =================================================================================
‘ 内部処理: AutoCAD Documents.Openの実行
‘ =================================================================================
Private Sub OpenDocumentUnsafe(ByVal filePath As String)
Dim targetDoc As AcadDocument

‘ AutoCADのモーダル/モードレスの競合を防ぐための安全策
On Error GoTo OpenError

‘ 読み取り専用で開く場合は Documents.OpenEx を使用する等の拡張性を持たせる
Set targetDoc = ThisDrawing.Application.Documents.Open(filePath)

‘ 開いた直後のドキュメントに対する初期設定やロギングをここに記述
‘ 例: Debug.Print targetDoc.Name & ” を正常にオープンしました。”

Exit Sub

OpenError:
MsgBox “AutoCAD図面のオープンに失敗しました。” & vbCrLf & _
“ファイルが他のプロセスによってロックされている可能性があります。” & vbCrLf & _
“詳細: ” & Err.Description, vbCritical, “CADエンジンエラー”

End Sub

—

5. シニアエンジニアが押さえるべきアーキテクチャの急所

上記のコードを見れば分かる通り、プロフェッショナルなVBAコードは「動けばいい」という次元を完全に超越している。

1. オブジェクトのスコープと即時解放 (`Set fso = Nothing`)
VBAのガベージコレクションは頼りにならない。COMコンポーネントを操作した後は、使用し終わった瞬間にメモリからアンロードする習慣をつけなければ、長時間のバッチ処理で確実にメモリリークを起こし、AutoCADごとクラッシュする。
2. ネットワークパス（UNC）におけるタイムアウト対策
`Dir`関数はネットワーク越しでファイルが見つからない場合にOSレベルでフリーズすることがあるが、FSOの`FileExists`は例外を吐かずに`False`を返す特性があり、バッチ処理の堅牢性を飛躍的に高める。
3. 関数の単一責任の原則
「パスの検証（バリデーション）」と「図面のオープン（副作用）」を明確に分離している。これにより、将来的にDXFのインポート処理や、Inventor等他のCAD連携への拡張が発生した際にも、検証ロジックをそのまま流用できる。

結言

AutoCAD VBAはレガシーな言語であるとやゆされることが多い。しかし、その背後にあるAutoCADのCOMアーキテクチャとWindowsOSの挙動を完全に掌握した者が書くコードは、モダンな言語で書かれたシステムに匹敵する堅牢性を宿す。

「ファイルをただ開く」という最もプリミティブな処理にこそ、エンジニアの技量が色濃く反映される。安易なエラーハンドリングを捨て、ライフサイクルを支配したセキュアで堅牢な自動化コードを、あなたのシステムにも実装してほしい。