【実務・中級編】【上級プロフェッショナル向け】OneDriveの「オンデマンド保存」状態を検知し、未ダウンロード図面を強制同期してから開くVBAロジック – AutoCAD VBA解析バイブル

AutoCAD VBA

2026.11.02

「存在」と「実体」を混同するな：OneDrive環境におけるAutoCAD自動化の致命的陥穽と、その突破口

「存在」と「実体」を混同するな：OneDrive環境におけるAutoCAD自動化の致命的陥穽と、その突破口

クラウドストレージが設計の前提となった現代のエンジニアリング・ワークフローにおいて、我々が直面する最大の敵は、コードのバグではない。「ファイルが存在するという嘘」だ。

多くの開発者が、`Dir()` 関数や `FileSystemObject.FileExists` を使ってファイルの存在を確認し、そのまま `Documents.Open` を実行する。しかし、OneDriveの「ファイル・オンデマンド（Files On-Demand）」が有効な環境では、このロジックは極めて脆弱だ。OSは「ファイル名」というメタデータさえあれば `True` を返す。だが、その背後にあるデータ本体（実体）はまだクラウドにあり、ローカルには「プレースホルダー」しか存在しない。

この状態でAutoCADを走らせれば、アプリケーションはファイルの実体取得を待機し、数秒から数十秒のフリーズ、最悪の場合はタイムアウトによるクラッシュ、あるいは不完全な読み込みによる図面破損を引き起こす。

本稿では、このような「クラウド・ハイブリッド環境」における、堅牢なファイル操作の設計思想と、実体を強制的に同期（Hydration）させるプロフェッショナルな実装手法を伝授する。

1. 設計思想：Hydration（水和）をプロセスに組み込む

プロフェッショナルな設計において、ファイルを開く（Open）という動作は、単一のステップではない。以下の3つのフェーズからなる決定論的なプロセスとして定義すべきである。

1. Existence Check（存在確認）: ファイルパスが論理的に正しいか。
2. Hydration Check & Force（実体化確認と強制）: ローカルに物理的なデータブロックが存在するか。存在しなければ、OSのファイルシステム・フィルタドライバに対してダウンロードを強制する。
3. Access（アクセス）: 実体が保証された状態で、AutoCADのオブジェクトモデルに制御を渡す。

「AutoCADが勝手にダウンロードしてくれるだろう」という甘い期待は捨てろ。制御権をアプリケーションに渡す前に、我々がOSレベルでデータの準備を完了させておく。これが「バグの起きないツール」への絶対条件だ。

2. 実装の核：低レイヤ・プロトコルによる強制同期

OneDriveのプレースホルダーを実体化させる最も軽量かつ確実な方法は、「バイナリモードでの最小限の読み取り試行」である。

Windowsのクラウド・フィルタ・ドライバは、アプリケーションがファイルの内容（たとえ1バイトであっても）にアクセスしようとした瞬間、ブロッキング操作としてクラウドからのダウンロードを開始する。これをVBAから、AutoCADという重厚なプロセスを介さずに、極めて低コストで行うのが定石だ。

プロダクション・コード例：`CloudFileHandler` モジュール

以下に、実務レベルでそのまま組み込める、堅牢なロジックを示す。

Option Explicit

' ==============================================================================
' Module: CloudFileHandler
' Description: OneDrive等のオンデマンド環境におけるファイル実体化制御
' Author: Chief Architect
' ==============================================================================

Public Enum FileStatus
    fsError = 0
    fsCloudOnly = 1    ' プレースホルダー状態
    fsDownloaded = 2   ' 実体化済み
    fsExists = 3       ' 存在確認済み
End Enum

''' <summary>
''' 指定されたファイルがローカルに実体化されているかを確認し、
''' 未ダウンロードの場合は強制的に同期（Hydration）を実行する。
''' </summary>
''' <param name="filePath">対象ファイルのフルパス</param>
''' <returns>成功時はTrue、失敗時はFalse</returns>
Public Function EnsureFileIsHydrated(ByVal filePath As String) As Boolean
    On Error GoTo ErrorHandler
    
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 1. Existence Check: ファイルの存在自体を確認
    If Not fso.FileExists(filePath) Then
        Debug.Print "[Error] File does not exist: " & filePath
        EnsureFileIsHydrated = False
        Exit Function
    End If
    
    ' 2. Hydration Check & Force
    ' ファイルの属性を確認し、Attributesのフラグからクラウドのみの状態を判定する手法もあるが、
    ' 最も確実なのは「最小限のバイナリアクセス」によるOSドライバへのトリガーである。
    
    Dim fileNum As Integer
    fileNum = FreeFile
    
    ' バイナリモードで開くことで、Windows Cloud Filter Driverに実体取得を強制させる
    ' Openステートメントは、ファイルがクラウドにある場合、ダウンロードが完了するまでブロックされる
    Open filePath For Binary Access Read As #fileNum
    
    ' 1バイトだけ読み取り、ドライバの動作を確定させる
    Dim dummyByte As Byte
    Get #fileNum, 1, dummyByte
    
    Close #fileNum
    
    Debug.Print "[Success] File is hydrated: " & filePath
    EnsureFileIsHydrated = True
    Exit Function

ErrorHandler:
    ' ファイルが使用中、またはネットワークエラー、権限不足などの場合
    If fileNum > 0 Then Close #fileNum
    Debug.Print "[Critical] Hydration failed for: " & filePath & " | Error: " & Err.Description
    EnsureFileIsHydrated = False
End Function

3. 実践的な統合：AutoCAD Open ロジックへの組み込み

このハンドラを、実際のAutoCAD操作フローにどう組み込むべきか。単に `If` 文で囲むだけでは不十分だ。ネットワーク遅延や同時実行による競合を考慮した、リトライメカニズムを含めた実装が求められる。

''' <summary>
''' AutoCAD図面を安全に開くメインルーチン
''' </summary>
Public Sub SafeOpenDrawing(ByVal targetPath As String)
    Dim acadApp As Object ' AutoCAD.Application
    Dim doc As Object     ' AutoCAD.Document
    Dim retryCount As Integer
    Const MAX_RETRIES As Integer = 3
    
    ' 1. 事前準備：実体化の強制
    Do While retryCount < MAX_RETRIES
        If EnsureFileIsHydrated(targetPath) Then
            Exit Do
        Else
            retryCount = retryCount + 1
            Debug.Print "[Retry] Attempt " & retryCount & " to hydrate..."
            DoEvents ' OSに制御を戻し、ネットワークスタックの処理を待つ
            Sleep 2000 ' 2秒待機（APIとしてDeclare Sub Sleep Lib "kernel32" を推奨）
        End If
    Loop
    
    If retryCount = MAX_RETRIES Then
        MsgBox "ファイルの同期に失敗しました。ネットワーク接続またはOneDriveの状態を確認してください。", vbCritical
        Exit Sub
    End If
    
    ' 2. AutoCADへの受け渡し
    On Error Resume Next
    Set acadApp = GetObject(, "AutoCAD.Application")
    If acadApp Is Nothing Then
        ' AutoCADが起動していない場合の処理（省略）
    End If
    
    ' ここで初めてOpenを叩く。実体は既にローカルにあるため、高速かつ安全。
    Set doc = acadApp.Documents.Open(targetPath)
    
    If Err.Number <> 0 Then
        MsgBox "AutoCADでのファイルオープンに失敗しました: " & Err.Description, vbCritical
    Else
        MsgBox "図面のロードに成功しました。", vbInformation
    End If
    On Error GoTo 0
End Sub

4. アーキテクトの視点：運用上の注意点

このロジックをプロダクション環境に投入する際、以下の3点に留意せよ。

A. 「スロットリング（流量制限）」への配慮

大量の図面を一括で開くバッチ処理において、全てのファイルに対して同時に `EnsureFileIsHydrated` を実行すると、OneDriveの同期プロセスがスロットリング（速度制限）に抵触し、逆にパフォーマンスが低下する。ループ内で適切な `DoEvents` と、必要に応じた微小な待機時間を挟むことが、全体のスループットを最大化する鍵となる。

B. 権限とロックの競合

`Open … For Binary Access Read` は、ファイルが他のプロセスによって「排他的」にロックされている場合、エラーを返す。AutoCADが既にそのファイルを開いている場合や、他のユーザーが編集中の場合を想定し、`Err.Number` を精査して、リトライすべきエラー（ネットワーク）と、即座に停止すべきエラー（アクセス拒否）を峻別せよ。

C. データベース連携時の注意

図面パスをSQL ServerやAccess等のデータベースで管理している場合、パスの文字列そのものに「OneDrive特有のURL形式（`https://d.docs.live.net/…`）」が含まれているケースがある。これはローカルのファイルパスではないため、`FileSystemObject` は動作しない。必ずローカルの絶対パス（`C:\Users\…`）に正規化してから、本ロジックに渡す設計を徹底すること。

結論

クラウドストレージとの共存は、現代の自動化エンジニアにとって避けて通れない。
`Dir()` の結果を鵜呑みにせず、「データが物理的にそこに存在するか」を常に疑い、OSの挙動をコントロール下に置くこと。この一歩が、現場で「壊れない、止まらない、信頼される」プロフェッショナルなツールを生み出す。