「動けばいい」は素人の発想だ。AutoCAD VBAにおける堅牢なファイルパス制御とバックアップ設計の極意
業務自動化の現場に足を踏み入れたばかりのエンジニアが、最初に見せる「致命的なミス」がある。
それは、「自分のPCでは動いた」という言葉で、プログラムの脆弱性を正当化することだ。
例えば、バックアップ保存先として `C:\Users\Tanaka\Desktop` とハードコーディングしたコードを考えてみてほしい。これを同僚のPC、あるいはサーバー上で実行した瞬間、そのプログラムは無残にも実行時エラーで崩れ落ちる。パスの構成要素であるユーザー名が異なるだけで、プログラムは「存在しない場所」へのアクセスを試み、死に至るからだ。
我々プロフェッショナルに求められるのは、単なる「自動化」ではない。「どのような環境に放り込まれても、エラーを吐かずに、設計者の意図通りに動く堅牢性（Robustness）」である。
本記事では、AutoCAD VBAにおいて「デスクトップ」や「マイドキュメント」といった環境依存のパスを、いかにしてスマートかつ、絶対に失敗しない形で取得し、図面をクイック保存（バックアップ）するか。そのアーキテクチャを伝授する。
1. なぜ `Environ` 関数だけでは不十分なのか？
初心者はまず、Windowsの環境変数を取得する `Environ` 関数に辿り着く。
`Environ(“USERPROFILE”) & “\Desktop”` と書けば、一見すると汎用性が確保されているように見える。
しかし、ここには「設計の落とし穴」がある。
現代のビジネス環境では、OneDriveによるデスクトップの同期や、組織のポリシーによるドキュメントフォルダの移動（Dドライブへの変更など）が当たり前に行われている。`Environ` 関数で取得できるのは、あくまで「OSが定義している標準的なパス」に過ぎない。ユーザーが設定でフォルダの場所を変更していた場合、`Environ` で生成したパスは、もはや「存在しない虚構のパス」となるのだ。
アーキテクトの選択：`WScript.Shell` による特殊フォルダの取得
真に堅牢なツールを作るなら、Windows Script Host (WSH) の `SpecialFolders` プロパティを利用すべきだ。これは、OSのレジストリに基づき、「ユーザーが現在実際に使用している特殊フォルダのパス」を直接参照する。
2. 実装：プロダクショングレードの「パス取得エンジン」
まずは、環境に依存しないパス取得を実現するための関数を定義する。ここでは、参照設定を増やさずに済むよう、Late Binding（遅延結合）を採用する。これにより、配布時のライブラリ参照エラーという、初歩的なトラブルを未然に防ぐ。
' =================================================================
' Module: FileUtility
' Description: ファイル操作およびパス取得に関するユーティリティ
' =================================================================
Option Explicit
''' <summary>
''' Windowsの特殊フォルダ（デスクトップ等）の現在の正確なパスを取得する
''' </summary>
''' <param name="folderName">"Desktop" または "MyDocuments"</param>
''' <returns>絶対パス。取得失敗時は空文字を返す</returns>
Public Function GetSpecialFolderPath(ByVal folderName As String) As String
Dim shell As Object
On Error GoTo ErrorHandler
' WScript.ShellオブジェクトをLate Bindingで生成
Set shell = CreateObject("WScript.Shell")
' SpecialFoldersプロパティからパスを取得
' folderNameには "Desktop" や "MyDocuments" を指定
GetSpecialFolderPath = shell.SpecialFolders(folderName)
Set shell = Nothing
Exit Function
ErrorHandler:
' エラーログの出力（AutoCADのコマンドラインへ）
Debug.Print "Error in GetSpecialFolderPath: " & Err.Description
GetSpecialFolderPath = ""
Set shell = Nothing
End Function3. 実装：図面のクイックバックアップ・ロジック
パスが取れたら、次は「図面の保存」だ。
単に `SaveAs` を実行するだけでは、既存のファイルを上書きしてしまい、本来の「バックアップ」としての役割を果たせない。
プロフェッショナルな実装では、以下の要素を組み込む。
1. タイムスタンプの付与: ファイルの重複を防ぎ、履歴を管理する。
2. ディレクトリの存在確認: 保存先が万が一存在しない場合のガード。
3. ファイルシステムオブジェクト (FSO) の活用: 文字列操作ではなく、オブジェクトとしてファイルを制御する。
''' <summary>
''' 現在の図面をデスクトップにタイムスタンプ付きでバックアップ保存する
''' </summary>
Public Sub QuickBackupToDesktop()
Dim acadDoc As AcadDocument
Set acadDoc = ThisDrawing ' 現在の図面オブジェクト
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim desktopPath As String
desktopPath = GetSpecialFolderPath("Desktop")
' 1. パス取得のバリデーション
If desktopPath = "" Then
MsgBox "デスクトップのパス取得に失敗しました。処理を中断します。", vbCritical
Exit Sub
End If
' 2. 現在の図面が一度も保存されていない（パスを持っていない）場合の処理
Dim currentPath As String
currentPath = acadDoc.FullName
If currentPath = "" Then
MsgBox "この図面はまだ保存されていません。まず手動で一度保存してください。", vbExclamation
Exit Sub
End If
' 3. 保存用ファイル名の生成 (例: DrawingName_20231027_143005.dwg)
Dim baseName As String
Dim extension As String
Dim timestamp As String
Dim newFileName As String
' FSOを使用してファイル名と拡張子を分離
baseName = fso.GetBaseName(currentPath)
extension = fso.GetExtensionName(currentPath)
timestamp = Format(Now, "yyyymmdd_hhnnss")
newFileName = desktopPath & "\" & baseName & "_" & timestamp & "." & extension
' 4. 保存実行
On Error Resume Next
acadDoc.SaveAs newFileName
If Err.Number <> 0 Then
MsgBox "バックアップに失敗しました。原因: " & Err.Description, vbCritical
Else
' AutoCADのコマンドラインに結果を表示（ユーザーへのフィードバック）
ThisDrawing.Utility.Prompt vbCrLf & "Success: Backup saved to " & newFileName & vbCrLf
MsgBox "クイックバックアップが完了しました。" & vbCrLf & newFileName, vbInformation
End If
On Error GoTo 0
Set fso = Nothing
End Sub4. アーキテクトの視点：なぜこの設計なのか？
このコードが、単なる「動くコード」を超えて「プロダクションコード」である理由を解説する。
① 疎結合（Loose Coupling）の原則
`GetSpecialFolderPath` という独立した関数を切り出したこと。これにより、将来的に「保存先をクラウドストレージに変えたい」「マイドキュメントではなく特定の共有フォルダに変えたい」となった際、呼び出し側のロジックを汚さずに、パス取得ロジックだけを修正すれば済む。
② エラーハンドリングの階層化
`On Error GoTo ErrorHandler` を使い、エラーが発生した際に「何が起きたか」を明確にしている。特に、図面が一度も保存されていない（`FullName` が空）状態での `SaveAs` は、実行時エラーの温床だ。これを事前にチェックする「ガード節」を設けることで、プログラムの暴走を防いでいる。
③ 冪等性（Idempotency）への配慮
タイムスタンプを秒単位（`hhnnss`）まで含めることで、連続して実行してもファイル名が衝突しないように設計している。これは、自動化ツールにおいて「同じ操作を繰り返しても、システムが壊れない」という極めて重要な特性である。
結論：ツールを作るのではない、仕組みを作るのだ
初心者は「機能」を作ろうとする。
エンジニアは「コード」を書く。
しかし、我々アーキテクトは「仕組み」を作る。
「デスクトップに保存する」という単純な動作の裏側には、OSの仕様、ユーザーの環境設定、ファイルシステムの挙動といった、無数の不確定要素が潜んでいる。それらをすべてコントロール下に置き、例外的な状況を想定した設計を行うこと。それこそが、業務自動化において「信頼されるツール」を生み出す唯一の道である。
次にコードを書くときは、自分に問いかけてほしい。
「このコードは、明日、全く知らない人のPCで動く準備ができているか？」と。
