「C:\」をコードに書いた瞬間に、君のスクリプトはゴミになる。――動的パス生成による堅牢な設計思想
業務自動化の現場において、新人が書くスクリプトには共通の「致命的な欠陥」がある。
それは、パスのハードコード（直書き）だ。
`strPath = “C:\Users\Admin\Documents\Data\”`
このような一行を書いた瞬間、そのスクリプトの寿命は決まる。他のPCに持っていけば動かない。ネットワークドライブの割り当てが変われば死ぬ。実行ユーザーが変わればエラーを吐く。
エンジニアリングとは、変化に耐えうる「抽象化」のプロセスだ。
今回は、FileSystemObject（FSO）を使いこなし、`Drive.DriveLetter` や `RootFolder` を適切にハンドリングすることで、「どこに置いても、誰が実行しても、正しく動く」堅牢なパス生成の極意を伝授する。
1. なぜ「ドライブ文字」を直接指定してはいけないのか
多くの初学者は、自身の環境で動いているからといって `C:` や `D:` を直接指定する。しかし、プロフェッショナルは「環境」を信じない。
決定的なリスク
1. ドライブレターの不一致: ネットワークドライブ（Zドライブなど）を使用している場合、ユーザーごとに割り当てが異なる。
2. 環境の差異: 開発環境は `C:` だが、本番サーバーは `D:` や `E:` にデータ領域があるのが常識だ。
3. 保守性の欠如: フォルダ構造が変わるたびに、スクリプト内の何十箇所ものパスを書き換える作業が発生する。これは「自動化」ではなく「新たな手作業の増殖」だ。
我々が目指すべきは、「スクリプト自身の存在位置」から、コンテキスト（文脈）を読み解いてパスを導出する設計である。
2. FSOによるドライブ情報の掌握：Driveプロパティの真価
FSOの `Drive` オブジェクトは、単なる文字情報の取得ツールではない。ファイルシステムの構造を論理的に理解するためのインターフェースだ。
ここで重要なのが、`DriveLetter` プロパティと `RootFolder` プロパティの使い分けだ。
DriveLetter vs RootFolder
- `Drive.DriveLetter`: `”C”` という文字列を返す。これは単なる識別子であり、パスの一部としては不完全だ。
- `Drive.RootFolder.Path`: `”C:\”` という、パスとして完結した文字列を返す。
設計上の鉄則：
パスを構築する際、`DriveLetter & “:\” & “Folder”` のように文字列連結で無理やりパスを作るな。これはバグの温床だ。必ず `RootFolder.Path` を起点にするか、FSOのメソッドを介してパスを結合せよ。
3. 【実践】プロダクション品質の動的パス生成コード
以下に、実務でそのまま使えるレベルの設計思想を組み込んだコード例を示す。
このコードのポイントは、「スクリプトが存在する場所」を起点として、ドライブのルートまで遡り、そこから相対的にパスを再構築する点にある。
'**
' Module: PathManager
' Description: スクリプトの実行環境に基づいた堅牢なパス生成ロジック
' Author: Chief Architect
'**
Option Explicit
Dim fso, scriptPath, currentDrive, rootPath, targetFolder
Set fso = CreateObject("Scripting.FileSystemObject")
' 1. スクリプト自身のフルパスを取得
' WScript.ScriptFullName は、実行中のスクリプトの絶対パスを返す
scriptPath = WScript.ScriptFullName
' 2. スクリプトが置かれているディレクトリ（親フォルダ）を取得
' これにより、実行環境に依存しない「相対的な起点」が確定する
Dim baseDir
baseDir = fso.GetParentFolderName(scriptPath)
' 3. ドライブオブジェクトを取得し、ルートパスを特定する
' GetDriveメソッドに現在のパスを渡すことで、対象のドライブを確実に特定
Set currentDrive = fso.GetDrive(baseDir)
' RootFolder.Path を使うことで、末尾の "\" を含んだ安全なルートパスが得られる
rootPath = currentDrive.RootFolder.Path
' --- デバッグ出力 ---
WScript.Echo "--- Environment Analysis ---"
WScript.Echo "Script Location: " & scriptPath
WScript.Echo "Drive Letter : " & currentDrive.DriveLetter
WScript.Echo "Root Path : " & rootPath
WScript.Echo "----------------------------"
' 4. 動的なパス構築の例
' ハードコードを避け、baseDir（スクリプトの場所）を起点に構築する
' フォルダ構成が「スクリプトのあるフォルダ/Logs/」となっている想定
targetFolder = fso.BuildPath(baseDir, "Logs")
' 5. 存在チェックとエラーハンドリング
' プロダクションコードにおいて、存在しないパスへの操作は「死」を意味する
If Not fso.FolderExists(targetFolder) Then
WScript.Echo "ERROR: Target folder not found: " & targetFolder
' ここでエラーログを出力したり、フォルダを作成するなどの制御を行う
' fso.CreateFolder(targetFolder)
Else
WScript.Echo "SUCCESS: Target folder is ready: " & targetFolder
End If
' オブジェクトの解放（メモリリーク防止）
Set currentDrive = Nothing
Set fso = Nothing設計の解説：なぜ `fso.BuildPath` を使うのか？
コード内で `fso.BuildPath(baseDir, “Logs”)` を使用している。
`baseDir & “\Logs”` と書くのは素人の仕事だ。`BuildPath` メソッドは、区切り文字（`\`）の有無を自動的に判断し、適切なパスを生成する。これこそが、OSの差異や入力ミスを吸収する「堅牢な設計」の基本だ。
4. 実務における「落とし穴」：データベースとネットワーク
パスの動的取得をマスターしても、まだ油断はできない。実務では以下の2点に直面する。
① ネットワークパス（UNCパス）の罠
スクリプトが `\\ServerName\SharedFolder\Script.vbs` のように、UNCパス（ネットワーク共有パス）で実行される場合、`DriveLetter` は存在しない。
この場合、`fso.GetDrive` はエラーを投げる可能性がある。
対策: `currentDrive.IsReady` プロパティや、エラーハンドリング（`On Error Resume Next`）を適切に組み合わせ、ドライブレターが存在しない（ネットワークパスである）場合の分岐ロジックを必ず組み込め。
② データベース連携時の接続文字列
ExcelやAccess、SQL Server等と連携する場合、接続文字列（Connection String）の中にパスが含まれる。
ここでも、`RootFolder` から生成した動的パスを組み込む必要がある。
Bad: `strConn = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Data\DB.accdb;”`
Good: `strConn = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=” & fso.BuildPath(rootPath, “Data\DB.accdb”) & “;”`
結論：君のコードに「意志」を持たせろ
プログラミングとは、単に命令を並べることではない。「もし環境が変わったらどうするか？」という問いに対し、コード自体が自律的に判断を下せるように設計することだ。
`Drive.DriveLetter` を知ることは、環境を理解する第一歩に過ぎない。
`RootFolder` を使い、`BuildPath` で構築し、`GetParentFolderName` で起点を見出す。
この一連の流れを「当たり前」の作法として身につけたとき、君の書くスクリプトは、単なる使い捨てのツールから、「信頼に足る業務基盤」へと昇華する。
次にコードを書くときは、自分に問いかけろ。
「このパスは、明日別のPCに持っていっても動くか？」と。
