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

AutoCAD VBA

2026.11.02

クラウド時代の自動化における「不可視の壁」：OneDrive On-Demand状態を制御する極限のファイル操作術

クラウド時代の自動化における「不可視の壁」：OneDrive On-Demand状態を制御する極限のファイル操作術

かつて、我々が構築した自動化システムは、物理的なサーバー（SMB/CIFS）やローカルストレージという「確実な大地」の上に立っていた。ファイルが存在するならば、そのバイト列は確実にディスク上にあり、ハンドルを取得すれば即座に読み出しが可能であった。

しかし、時代は変わった。設計データはOneDriveやSharePointといったクラウドストレージへと移行し、Windowsの「ファイル・オンデマンド（Files On-Demand）」という概念が、我々エンジニアの牙城を脅かしている。

ファイルはエクスプローラー上に存在する。しかし、実体はクラウドにあり、ローカルには「再解析ポイント（Reparse Point）」としてのメタデータしか存在しない。この状態でAutoCADの`Documents.Open`メソッドを叩けば、APIは「ファイルが見つからない」あるいは「アクセスが拒否されました」という、実態とは乖離した、そして極めて扱いにくいエラーを投げ返す。

本稿では、この「クラウドによる抽象化」という名の罠を、Windows APIとShellオブジェクトを用いて、確実に、かつ高精度に突破するためのプロフェッショナルな実装手法を解説する。

1. 課題の本質：なぜ `Dir()` では不十分なのか

シニアエンジニアが陥りやすい罠は、標準の `Dir()` 関数や `FileSystemObject` でファイルの存在を確認して満足してしまうことだ。

' 典型的な失敗例
If Dir(strFilePath) <> "" Then
    ' ファイルは存在する（メタデータとして）。しかし、実体はダウンロードされていない。
    ' ここで AutoCAD を開こうとすると、同期の遅延により致命的なエラーが発生する。
    ThisDrawing.Application.Documents.Open strFilePath
End If

`Dir()` はファイルシステムのディレクトリ・エントリを確認するに過ぎず、そのファイルが「オンライン専用（Offline/Cloud-only）」であるか、あるいは「ローカルに実体化（Hydrated）」しているかを判別する能力を持っていない。我々に必要なのは、ファイルの属性（Attributes）を直接解析し、必要に応じてOSに対して「強制同期（Hydration）」を命令するロジックである。

2. 技術的アプローチ：属性検知と強制同期のプロトコル

我々が採用すべき戦略は、以下の3ステップからなる。

1. Windows APIによる属性解析: `GetFileAttributes` を用い、ファイルが `FILE_ATTRIBUTE_OFFLINE` または `FILE_ATTRIBUTE_REPARSE_POINT` を持っているかを判定する。
2. Shell Applicationによる強制ダウンロード: ファイルが未ダウンロードの場合、Windows Shellの機能を利用して、OSに対してファイルのダウンロードをトリガーさせる。
3. ポーリングによる整合性確認: ダウンロードが完了し、ファイルが完全にローカルに展開されるまで、非ブロッキングな待機を行う。

実装コード：`CloudFileHandler` モジュール

以下に、実戦投入可能なレベルのロジックを示す。これは単なる関数ではなく、エラーハンドリングとメモリ管理を考慮した設計である。

Option Explicit

' --- Windows API Declarations ---
Private Declare PtrSafe Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

' --- Constants ---
Private Const FILE_ATTRIBUTE_OFFLINE As Long = &H1000
Private Const FILE_ATTRIBUTE_REPARSE_POINT As Long = &H400
Private Const MAX_RETRIES As Integer = 10
Private Const RETRY_INTERVAL_MS As Long = 1000 ' 1秒

''' <summary>
''' 指定された図面ファイルがローカルに実体化されていることを保証する。
''' 未ダウンロードの場合は強制的に同期を開始する。
''' </summary>
''' <param name="strFilePath">対象ファイルのフルパス</param>
''' <returns>成功時はTrue、タイムアウトまたは失敗時はFalse</returns>
Public Function EnsureFileIsHydrated(ByVal strFilePath As String) As Boolean
    Dim lngAttributes As Long
    Dim objShell As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim i As Integer
    Dim isLocal As Boolean
    
    On Error GoTo ErrorHandler
    
    ' 1. ファイルの存在確認（基本チェック）
    If Dir(strFilePath) = "" Then
        Debug.Print "[Error] File not found: " & strFilePath
        EnsureFileIsHydrated = False
        Exit Function
    End If

    ' 2. 属性の取得
    lngAttributes = GetFileAttributes(strFilePath)
    
    ' Offline属性またはReparsePoint属性を確認
    isLocal = (lngAttributes And FILE_ATTRIBUTE_OFFLINE) = 0 And _
              (lngAttributes And FILE_ATTRIBUTE_REPARSE_POINT) = 0
    
    If isLocal Then
        Debug.Print "[Info] File is already hydrated: " & strFilePath
        EnsureFileIsHydrated = True
        Exit Function
    End If

    ' 3. 未ダウンロードの場合、Shellを使用して同期をトリガー
    Debug.Print "[Info] File is cloud-only. Triggering hydration: " & strFilePath
    
    ' Shell.Applicationを使用して「常にこのデバイスに保持」と同等の動作をエミュレート
    Set objShell = CreateObject("Shell.Application")
    ' ファイルパスを分解してFolderとFileNameを取得
    Dim strDir As String, strFileName As String
    strDir = Left(strFilePath, InStrRev(strFilePath, "\") - 1)
    strFileName = Mid(strFilePath, InStrRev(strFilePath, "\") + 1)
    
    Set objFolder = objShell.Namespace(strDir)
    Set objFile = objFolder.ParseName(strFileName)
    
    If objFile Is Nothing Then
        Err.Raise 999, , "Shell object failed to parse file."
    End If

    ' Windows Shellの「同期」を強制（実質的にファイルを読み取る動作を促す）
    ' ここでは、最も確実な方法として、一度バイナリモードでファイルを開こうとする試行を行う
    ' これにより、OSのファイルシステムフィルタドライバがダウンロードを強制される
    Dim fnum As Integer
    fnum = FreeFile
    On Error Resume Next
    Open strFilePath For Binary Access Read As #fnum
    Close #fnum
    On Error GoTo ErrorHandler

    ' 4. ポーリングによる同期完了の待機
    For i = 1 To MAX_RETRIES
        Sleep RETRY_INTERVAL_MS
        
        ' 再度属性を確認
        lngAttributes = GetFileAttributes(strFilePath)
        If (lngAttributes And FILE_ATTRIBUTE_OFFLINE) = 0 Then
            Debug.Print "[Success] File hydrated successfully after " & i & " retries."
            EnsureFileIsHydrated = True
            GoTo Cleanup
        End If
        Debug.Print "[Wait] Syncing... attempt " & i
    Next i

    Debug.Print "[Error] Hydration timeout."
    EnsureFileIsHydrated = False

Cleanup:
    ' オブジェクトの明示的な解放（メモリリーク防止）
    Set objFile = Nothing
    Set objFolder = Nothing
    Set objShell = Nothing
    Exit Function

ErrorHandler:
    Debug.Print "[Critical Error] " & Err.Description
    Resume Cleanup
End Function

3. アーキテクトの視点：オブジェクトのライフサイクルと堅牢性

このロジックを大規模な自動化フレームワークに組み込む際、我々は単なる「動作」以上のものを考慮しなければならない。

メモリ管理の極意

VBAはガベージコレクションが甘い。特に `Shell.Application` のようなCOMオブジェクトをループ内で生成する場合、`Set obj = Nothing` による明示的な解放を怠れば、AutoCADのプロセスがメモリを食いつぶし、長時間のバッチ処理においてシステム全体の不安定化を招く。

AutoCAD APIとの連携における「タイムラグ」の制御

`EnsureFileIsHydrated` が `True` を返した直後に `Documents.Open` を呼び出す際、OSのファイルシステムが「準備完了」と宣言していても、ファイルロック（File Lock）が解除されるまでに数ミリ秒のラグが生じることがある。
プロフェッショナルな実装では、`Open` メソッドを `Try-Catch` 構造（VBAでは `On Error Resume Next` を用いた制御）で包み、失敗した場合は再試行するリトライメカニズムを二重に構築すべきである。

レガシー環境への配慮

64bit版AutoCADを利用している場合、API宣言には必ず `PtrSafe` を付与し、ハンドルを扱う変数は `LongPtr` を検討せよ（本例では `Long` で十分だが、ポインタを直接扱う場合は必須である）。

4. 総括

OneDrive On-Demandは、ユーザーにとっては利便性の向上であるが、自動化エンジニアにとっては「不確定要素」の増大を意味する。

我々に求められるのは、環境の変化を嘆くことではない。OSの低レイヤーな挙動を理解し、APIを通じて制御下に置くことだ。今回提示した「属性検知・強制同期・ポーリング」のパターンは、AutoCADに限らず、あらゆるクラウドストレージ連携型自動化システムの基盤となる知見である。

このコードを単なるコピーペーストで終わらせるな。君のシステムのコンテキストに合わせて、リトライ回数、タイムアウト、エラーログの出力先を最適化せよ。それが、真のアーキテクトへの道である。