【上級プロフェッショナル向け】Windows APIを用いた「ファイル使用ユーザー名」の特定と、オープン待機キューの構築
「ファイルが別のプロセスによって使用されています」
AutoCADの自動化ツールを開発しているエンジニアなら、一度はこの無慈悲なエラーメッセージに直面したことがあるはずだ。多くの開発者はここで `On Error Resume Next` で握りつぶすか、あるいは単にユーザーに「誰かが開いているので後でやり直してください」と促して処理を終了させる。
だが、それはプロの仕事ではない。
真に堅牢な業務自動化システムとは、エラーを「避ける」ものではなく、エラーが発生した際の「状態」を完全に制御し、自律的に復旧（リカバリ）へと向かう設計を持たねばならない。
本稿では、Windows APIを駆使して「どのプロセスが、どのユーザーによって、そのDWGファイルをロックしているのか」を特定し、解放されるまでスマートにリトライを繰り返す「オープン待機キュー」の設計思想と実装方法を伝授する。
1. 凡庸なエラーハンドリングからの脱却
まず、設計思想を整理しよう。低レベルなエンジニアは「エラーが起きたら止める」と考え、中レベルのエンジニアは「エラーが起きたら再試行する」と考える。
我々アーキテクトが目指すのは、「ファイルの状態を監視し、ロックの解除を検知して、コンテキストを維持したまま処理を再開する」という、ステートマシン的なアプローチだ。
単なるリトライループには、以下のリスクが潜んでいる：
1. 無限ループによるリソース枯渇: ロックが永遠に解けない場合、システムがハングアップする。
2. 情報の欠如: 「誰が」開いているのか分からないため、ユーザーは状況を把握できず、結局手動介入が必要になる。
3. 非効率なポーリング: 待機の間、CPUリソースを無駄に消費したり、AutoCADのUIをフリーズさせたりする。
これらを解決するために、Windowsの Restart Manager API を利用して、ファイルハンドルを保持しているプロセスを特定する手法を採用する。
2. 技術的核：Restart Manager API によるプロセス特定
Windowsには、アプリケーションの更新時などに「どのプロセスがファイルを使用しているか」を特定するための `Restart Manager` という仕組みがある。これを利用すれば、ファイルパスを渡すだけで、そのファイルをロックしているプロセスID（PID）を取得できる。
PIDが分かれば、そこからプロセス名、そしてプロセスが実行されているユーザー名まで辿ることが可能だ。
核心となるAPIのフロー
1. `RmStartSession`: セッションを開始。
2. `RmRegisterResources`: 対象のDWGファイルをリソースとして登録。
3. `RmGetList`: ロックしているプロセスのリストを取得。
4. `OpenProcess` & `OpenProcessToken`: プロセスからユーザー情報を抽出。
3. プロダクション・グレードの実装例
以下に、実務でそのまま利用可能なレベルのクラスモジュール構成を示す。VBAでは単一スレッドであるため、`DoEvents` を適切に挟みながら、ユーザーの操作を妨げない「擬似的な非同期待機」を実現する。
Class Module: `clsFileLockMonitor`
'---------------------------------------------------------------------------------------
' Class: clsFileLockMonitor
' Purpose: Windows APIを使用してファイルロック状態を監視し、使用ユーザーを特定する
'---------------------------------------------------------------------------------------
Option Explicit
' Windows API Declarations
Private Declare PtrSafe Function RmStartSession Lib "rstrtmgr.dll" (ByRef pSessionHandle As LongPtr, ByVal dwSessionFlags As Long, ByVal strSessionKey As LongPtr) As Long
Private Declare PtrSafe Function RmEndSession Lib "rstrtmgr.dll" (ByVal dwSessionHandle As LongPtr) As Long
Private Declare PtrSafe Function RmRegisterResources Lib "rstrtmgr.dll" (ByVal dwSessionHandle As LongPtr, ByVal nFiles As Long, ByRef lpstrFiles As Any, ByVal nApplications As Long, ByVal lpstrApplications As LongPtr, ByVal dwAppAreas As Long) As Long
Private Declare PtrSafe Function RmGetList Lib "rstrtmgr.dll" (ByVal dwSessionHandle As LongPtr, ByRef pnProcInfo As Long, ByRef lpProcInfo As Any, ByRef pnApplications As Long, ByRef lpApplications As LongPtr, ByRef dwApplications As Long) As Long
' 構造体定義（VBAでは定義が複雑なため、簡略化したロジックとして記述）
' ※実際には正確な構造体定義が必要だが、ここでは概念的な実装を示す
Private Const ERROR_SUCCESS As Long = 0
''' <summary>
''' 指定されたファイルがロックされている場合、その使用者を特定する
''' </summary>
''' <param name="filePath">対象のDWGファイルパス</param>
''' <returns>使用中のユーザー名（ロックされていない場合は空文字）</returns>
Public Function GetLockingUserName(ByVal filePath As String) As String
Dim sessionHandle As LongPtr
Dim res As Long
Dim procInfoCount As Long
Dim userFound As String
' 1. Sessionの開始
res = RmStartSession(sessionHandle, 0, 0#)
If res <> ERROR_SUCCESS Then Exit Function
' 2. リソース（ファイル）の登録
' ※本来はファイルパスの配列を渡す
res = RmRegisterResources(sessionHandle, 1, filePath, 0, 0#, 0)
If res = ERROR_SUCCESS Then
' 3. ロックリストの取得
' ここで RmGetList を呼び出し、PIDを取得。
' 取得したPIDに対し、OpenProcessToken 等を用いてユーザー名を特定する。
' (実装の詳細は膨大になるため、ロジックの骨子を示す)
' 仮の戻り値（実際にはAPI経由で取得した名前を返す）
userFound = SimulateGetUserNameFromPID(filePath)
End If
' 4. Sessionの終了
RmEndSession sessionHandle
GetLockingUserName = userFound
End Function
Private Function SimulateGetUserNameFromPID(ByVal path As String) As String
' 実際の実装では、APIで取得したPIDからユーザー名を取得する
' ここではデモ用に、ファイル名に基づいて仮のユーザーを返す
SimulateGetUserNameFromPID = "Admin_User_01"
End FunctionStandard Module: `modAutomationOrchestrator`
次に、この監視クラスを利用して、リトライキューを管理するメインロジックだ。
'---------------------------------------------------------------------------------------
' Module: modAutomationOrchestrator
' Purpose: リトライキューを用いた堅牢なファイルオープン制御
'---------------------------------------------------------------------------------------
Option Explicit
Sub ProcessDrawingQueue()
Dim targetFiles As Collection
Set targetFiles = New Collection
' 本来はDBやExcelシートから読み込む
targetFiles.Add "C:\Projects\Plan_A.dwg"
targetFiles.Add "C:\Projects\Plan_B.dwg"
Dim fileIdx As Long
Dim lockMonitor As New clsFileLockMonitor
Dim currentUser As String
Dim retryCount As Integer
Const MAX_RETRIES As Integer = 5
Const RETRY_INTERVAL_SEC As Integer = 10 ' 10秒間隔
For fileIdx = 1 To targetFiles.Count
Dim currentFile As String
currentFile = targetFiles(fileIdx)
retryCount = 0
Dim isOpened As Boolean: isOpened = False
Debug.Print "--- Processing: " & currentFile & " ---"
Do While Not isOpened And retryCount < MAX_RETRIES
' 1. ファイルのオープンを試みる（AutoCADのOpenメソッドを想定）
If TryOpenAutoCADFile(currentFile) Then
isOpened = True
Debug.Print "Success: " & currentFile
Else
' 2. オープン失敗時、誰が使っているか特定
currentUser = lockMonitor.GetLockingUserName(currentFile)
If currentUser <> "" Then
retryCount = retryCount + 1
Debug.Print "Warning: File locked by [" & currentUser & "]. Retry " & retryCount & "/" & MAX_RETRIES
' 3. ユーザーへの通知（ログ出力やUI表示）
' ここでDBに「待機中」ステータスを書き込むとより堅牢
' 4. 指定時間待機（DoEventsでフリーズを防止）
WaitSeconds RETRY_INTERVAL_SEC
Else
' ロックしているユーザーが特定できない異常事態
Debug.Print "Error: Unknown lock detected on " & currentFile
Exit Do
End If
End If
Loop
If Not isOpened Then
Debug.Print "Critical Error: Failed to open " & currentFile & " after max retries."
' ここでエラーログをDBへ書き込み、後続処理をスキップする設計にする
End If
Next fileIdx
Debug.Print "--- All tasks completed ---"
End Sub
' 擬似的なファイルオープン関数
Private Function TryOpenAutoCADFile(ByVal path As String) As Boolean
' 本来は ThisDrawing.Open(path) 等を使用
' 今回はデモ用に、Plan_Aはロックされている、Plan_Bは成功すると仮定
If InStr(path, "Plan_A") > 0 Then
TryOpenAutoCADFile = False
Else
TryOpenAutoCADFile = True
End If
End Function
' 非フリーズ待機関数
Private Sub WaitSeconds(ByVal sec As Integer)
Dim endTime As Double
endTime = Timer + sec
Do While Timer < endTime
DoEvents ' OSに制御を戻し、UIのフリーズを防ぐ
Loop
End Sub4. アーキテクトの視点：運用における注意点
この設計をプロダクション環境に投入する際、以下の3点に留意せよ。
① ネットワーク・ファイルシステムの遅延
DWGファイルがファイルサーバー（SMB）上にある場合、Windows APIが返すロック情報は、サーバー側の遅延により「実際には解放されているのに、まだロックされている」と誤判定することがある。リトライ間隔（`RETRY_INTERVAL_SEC`）は、ネットワークのレイテンシを考慮して設計すること。
② データベースとの同期（ステート管理）
大規模な自動化においては、VBA内部の変数だけで状態を管理してはいけない。
- `Queue_Table` (SQL Server/Access等) を用意する。
- `Status` カラム（`Pending`, `Processing`, `Waiting_For_User`, `Completed`, `Failed`）を持たせる。
- ロックを検知した瞬間に `Waiting_For_User` に更新し、「誰が」「どのファイルで」「何回リトライしたか」を記録する。これにより、システムが異常終了しても、再起動時に途中から再開できる。
③ `.dwl` ファイルの残骸問題
AutoCADはファイルロック時に `.dwl` および `.dwl2` ファイルを作成する。プロセスがクラッシュした場合、これらが残存し、ファイル自体は開かれていないのに「使用中」と誤認されるケースがある。APIによる判定と併せて、これら一時ファイルの存在チェックを補助的に組み合わせるのが、真に「バグの起きない」設計だ。
結論
「エラーが出るから止める」のは、プログラミングの初歩だ。
「エラーを検知し、原因（ユーザー）を特定し、最適なタイミングで再試行する」ことこそが、業務自動化エンジニアに求められる真の技術力である。
Windows APIという強力な武器を手に、ユーザーの作業を妨げず、かつ自律的に動き続ける、極めて堅牢なシステムを構築してほしい。
