こんにちは！VBScriptの世界へようこそ。
業務の自動化を進めていると、デスクトップにファイルを置いたり、設定ファイルを `AppData` に保存したりする処理に必ず直面しますよね。
ここで、あなたに一つ質問です。
コードの中に `C:\Users\Yamada\Desktop` なんて、ご自身のユーザー名やフォルダパスをハードコード（直接書き込み）していませんか？
もしそうなら、今すぐその書き方は封印しましょう。なぜなら、そのスクリプトは他の人のパソコンで動かした途端にエラーで止まってしまう「お騒がせプログラム」になってしまうからです。日本語版Windowsと英語版Windowsでは、ユーザーフォルダの構造や名称が微妙に異なります。さらに、Windows 10と11、あるいはサーバーOSでもパスの前提は揺らぎます。
今回は、どんな環境のどんなユーザーが実行しても、迷うことなくお目当てのフォルダにたどり着ける『WScript.Shell.SpecialFolders』を用いた極上のパス解決術を伝授します。ここをクリアすれば、あなたの書くVBScriptは一段とプロフェッショナルな代物になりますよ。
—
1. なぜハードコード地獄から抜け出すべきなのか？
VBScript初学者や、Excelマクロの自動記録からステップアップしたばかりの方が最初にやりがちなのが、パスの決め打ちです。
‘ 【NG例】これでは他の人のPCや未来のOSで確実に爆発します
Dim targetPath
targetPath = “C:\Users\Yamada\Desktop\report.txt”
このコードの何がけないかというと、環境依存の塊だからです。
- ログインしているユーザー名が「Yamada」以外の人（例：「Suzuki」さん）だったら？ → パスが見つからずエラー。
- 社内PCのポリシーでユーザーフォルダの作成先が `Dドライブ` に変更されていたら？ → エラー。
私たちが目指すべきは、「OSに場所を尋ねて、動的に教えてもらう」というスマートなアプローチです。OSの言語や環境の違いに怯える必要はもうありません。
—
2. 秘密兵器：`WScript.Shell.SpecialFolders` とは？
Windows Script Host (WSH) には、OSが管理する特別なフォルダ（デスクトップ、マイドキュメント、スタートアップなど）の絶対パスを瞬時に引き出してくれる魔法のコレクションが用意されています。
それが `SpecialFolders`（スペシャル・フォルダーズ） です。
仕組みは非常にシンプル。`WScript.Shell` というオブジェクトを生成し、その `SpecialFolders` プロパティに対して、欲しいフォルダの「名前（キー）」を渡すだけです。
よく使う代表的なキー一覧
| キー名 | 取得できる場所の意味 |
| :— | :— |
| `Desktop` | 現在のユーザーのデスクトップ |
| `AppData` | アプリケーション固有のデータ保存先 (`Roaming`) |
| `SendTo` | 右クリックの「送る」メニューフォルダ |
| `Startup` | Windows起動時に自動実行されるスタートアップフォルダ |
| `MyDocuments` | ドキュメントフォルダ |
これらを組み合わせれば、OSがどこにインストールされていなかろうが、ユーザー名が何であろうが、一発で正確なパスが返ってきます。
—
3. 実践！OS言語非依存のスマート・コード
それでは、実際に現場でそのままコピペして使える実用的なサンプルコードを見てみましょう。
ここでは、デスクトップのパスを取得し、その中にテキストファイルを安全に生成する処理を書いてみます。
‘ =================================================================0
‘ 業務自動化スクリプト：動的パス解決の模範解答
‘ =================================================================0
Option Explicit
Dim objShell, desktopPath, targetFilePath, objFSO, objFile
‘ 1. シェルオブジェクトの生成（Windowsの操作権限を握る）
Set objShell = CreateObject(“WScript.Shell”)
‘ 2. SpecialFolders を使ってデスクトップの絶対パスを安全に取得
desktopPath = objShell.SpecialFolders(“Desktop”)
‘ 取得できたパスを確認（デバッグ用メッセージボックス）
WScript.Echo “取得したデスクトップパス: ” & desktopPath
‘ 3. 取得したパスを基準にして、ファイルの保存先を組み立てる
‘ （パスの結合にはFSOを使うのがセオリーですが、今回はシンプルに連結）
targetFilePath = desktopPath & “\AutoReport.txt”
‘ 4. ファイルシステムオブジェクト(FSO)でテキストファイルを作成
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objFile = objFSO.CreateTextFile(targetFilePath, True) ‘ 上書き作成
‘ データの書き込み
objFile.WriteLine “これは自動生成されたレポートです。”
objFile.WriteLine “実行日時: ” & Now
objFile.Close
‘ 5. 後片付け（メモリの解放はエンジニアのたしなみ）
Set objFile = Nothing
Set objFSO = Nothing
Set objShell = Nothing
WScript.Echo “処理が正常に完了しました！”
このコードの美しいポイント
1. `Option Explicit` の宣言: 変数の宣言を強制することで、タイポ（打ち間違い）によるバグを未然に防ぎます。プロの基本です。
2. 完全な動的解決: `C:\` やユーザー名を一切ハードコードしていません。誰が実行しても、その人のデスクトップにピンポイントでファイルが生成されます。
3. 適切なオブジェクトの解放: スクリプトの最後で `Set … = Nothing` を行い、COMオブジェクトがメモリ上に居座るのを防いでいます。
—
4. 陥りやすい罠と知っておくべき極意
ここで、現場でありがちな「おや？」と思うポイントをいくつか解説しておきます。
罠その1：キー名を間違えると容赦なくエラーになる
`SpecialFolders(“Desktop”)` の部分を、うっかり `SpecialFolders(“Desktp”)` のようにスペルミスすると、VBScriptは容赦なく「プロパティが見つかりません」というエラーを吐いて停止します。
もしユーザーが入力した値や変数を使う場合は、存在チェックを入れるか、正しいスペルをしっかりと指定してください。
罠その2：すべてのWindowsバージョンで同じキーが使えるわけではない
古いWindows (XPなど) と Windows 10/11 では、サポートされている特殊フォルダのキーが一部異なります。しかし、今回紹介した `Desktop`, `AppData`, `Startup`, `MyDocuments` あたりの主要なものであれば、モダンなWindows環境において完全に互換性がありますので安心してください。
—
おわりに
いかがでしたでしょうか？
「Cドライブの直接指定」という古い呪縛から解放されるだけで、あなたが書くVBScriptの信頼性は劇的に向上します。
VBScriptはレガシーな言語だと言われることもありますが、Windows環境において「ちょっとした自動化をサクッと動かす」ためのフットワークの軽さは、今なお最強クラスです。こうした細かい作法（ベストプラクティス）を積み重ねていくことで、あなたのコードは「動くだけのスクリプト」から「現場で信頼される堅牢なツール」へと生まれ変わります。
ここをクリアしたあなたなら、もうVBScriptの基本はバッチリです！
ぜひ、今日の業務からハードコードを排除し、スマートなパス解決を取り入れてみてくださいね。それでは、また次の極知見でお会いしましょう！
