【VBScript極限攻略】InputBoxからの脱却。`Shell.Application.BrowseForFolder`を完全制御する堅牢なUI設計パターン
現場の業務自動化スクリプトにおいて、ユーザーにフォルダパスを指定させる際に`InputBox` による文字列の手入力を許すのは、設計上の敗北と言っても過言ではありません。
タイプミスによる `Path Not Found` エラー、末尾のバックスラッシュ（`\`）の有無によるパス結合バグ、ネットワークパス（UNCパス）の誤入力——これらはすべて、UI設計の段階で水際対策ができたはずの無駄な例外処理です。
本稿では、VBScriptにおけるフォルダ選択UIの標準解である `Shell.Application` の `BrowseForFolder` メソッド を徹底解剖します。単なるサンプルコードの提示にとどまらず、COMオブジェクトのライフサイクル、ビットマスクによるオプション制御、そして実務に耐えうる例外処理を組み込んだ「プロダクションレベルのモジュール」へと昇華させる設計論を伝授します。
—
1. なぜ `InputBox` はアンチパターンなのか？
現場のリードエンジニアとして、まずコードレビューで弾くべき非効率な実装パターンを明確にしておきます。
‘ 【Bad Example】無防備なパスの直接入力
Dim strPath
strPath = InputBox(“対象フォルダのパスを入力してください:”, “フォルダ指定”)
‘ -> ユーザーが “C:\Temp “（末尾スペース）や “C:/Temp”（スラッシュ混在）を入力したら？
‘ -> 存在しないパスを入力したら？
‘ -> キャンセル時に空文字が返った後のガードはあるか？
文字列入力に依存したパス指定には、以下のリスクが常に付きまといます。
1. 入力表記の揺れ: ローカルパス、UNCパス、末尾の `\` の有無など、パース処理の複雑化を招く。
2. 存在しないパスの指定: 入力直後に `Scripting.FileSystemObject` で存在チェック（`FolderExists`）を強いる二重の手間。
3. UX（ユーザー体験）の破壊: エクスプローラーからパスをコピー＆ペーストさせる操作は、非IT部門の保守担当者にとって致命的に優しくない。
これらを一発で解決するのが、Windows標準の「フォルダの参照」ダイアログ（GUI）を直接呼び出す手法です。
—
2. `BrowseForFolder` の内部構造とパラメータ仕様
VBScriptでGUIダイアログを呼び出す最良の手段は、Shell Automation Objectsの `Shell.Application` を利用することです。
メソッドのシグネチャ
Set objFolder = objShell.BrowseForFolder(Hwnd, Title, Options, [RootFolder])
| 引数 | 型 | 説明 |
| :— | :— | :— |
| `Hwnd` | Long | 親ウィンドウのハンドル。WSH環境下では常に `0`（デスクトップ）を指定します。 |
| `Title` | String | ダイアログ内に表示する説明メッセージ。ユーザーに「何をさせるか」を明示します。 |
| `Options` | Long | ダイアログの動作や表示スタイルを制御するビットフラグの組み合わせ。 |
| `RootFolder` | Variant | [任意] ツリーの頂点（ルート）とするフォルダ。CSIDL値（定数）または絶対パス文字列。 |
—
3. 実務で必須となるフラグ（BIF: Browse Info Flags）
`Options` 引数には、Hex（16進数）フラグをビット論理和（`Or`）で組み合わせて渡します。実務スクリプトで必ず押さえておくべき主要フラグは以下の通りです。
‘ フラグ定義（VBScriptには組込定数が無いため自前で定義する）
Const BIF_RETURNONLYFSDIRS = &H0001′ ファイルシステム上のフォルダのみ選択可能（プリンタや制御パネルを除外）
Const BIF_DONTGOBELOWDOMAIN = &H0002′ ドメインレベル以下のネットワークフォルダを表示しない
Const BIF_EDITBOX = &H0010′ ダイアログ内にパス入力用のエディットボックスを表示
Const BIF_VALIDATE = &H0020′ エディットボックス入力時のパス検証を強制
Const BIF_NEWDIALOGSTYLE = &H0040′ モダンなUI（サイズ変更可能、新規フォルダ作成ボタン等）を適用
Const BIF_NONEWFOLDERBUTTON = &H0200’ 「新しいフォルダ」ボタンを非表示にする（読み取り専用処理などに指定）
> プロの設計知見:
> 現代のWindows環境において、`BIF_NEWDIALOGSTYLE` (`&H0040`) の指定は絶対要件です。これを省略すると、Windows 95時代のようなリサイズ不可能な極小ダイアログが表示され、操作性が著しく低下します。
—
4. 陥りがちな罠：`BrowseForFolder` の戻り値は「文字列」ではない
初心者が最も頻繁に発生させるバグがこれです。`BrowseForFolder` はフォルダパス（文字列）を返しません。`Folder` オブジェクトを返します。
ユーザーがフォルダを選択して「OK」を押した場合、返ってくるのは `Shell.Application` 内部の `Folder` オブジェクトです。キャンセルされた場合は `Nothing` が返ります。
フォルダの絶対パス文字列を取得するためには、返されたオブジェクトの `.Self.Path` プロパティ（または `.Items.Item.Path`）にアクセスする必要があります。
‘ 【Bad Example】戻り値を直接文字列として扱おうとして型エラー（Type Mismatch）
Dim strPath
strPath = objShell.BrowseForFolder(0, “選択してください”, &H0040) ‘ エラー！
‘ 【Good Example】オブジェクトとして受け取り、Nullチェック後にパスを取得する
Dim objFolder
Set objFolder = objShell.BrowseForFolder(0, “選択してください”, &H0040)
If Not objFolder Is Nothing Then
Dim selectedPath
selectedPath = objFolder.Self.Path
‘ selectedPath を使用した処理
Else
‘ キャンセル時のハンドリング
End If
—
5. 【完全版】プロダクション仕様のフォルダ選択関数
以上のアーキテクチャを理解した上で、実務の現場でそのままコピペ＆モジュール化して使える、堅牢なVBScript関数を提供します。
この関数は以下の要件を満たしています。
- モダンUIの強制（サイズ変更対応）
- ファイルシステム以外の仮想フォルダ（「PC」や「ネットワーク」直下など）の排除
- 新規フォルダ作成ボタンの制御フラグ対応
- COMオブジェクトの適切な破棄によるメモリリーク防止
- エラーハンドリングの局所化
Option Explicit
‘ ==============================================================================
‘ メイン処理（実行サンプル）
‘ ==============================================================================
Dim targetFolderPath
‘ フォルダ選択ダイアログの呼び出し（新規フォルダ作成を許可する場合）
targetFolderPath = SelectFolderDialog(“処理対象のログフォルダを選択してください。”, True, “”)
If targetFolderPath = “” Then
WScript.Echo “処理がキャンセルされたか、無効なフォルダが選択されました。終了します。”
WScript.Quit
End If
‘ 取得したパスの表示（実務ではここからFSO等の処理へ移行）
WScript.Echo “選択されたパス: ” & targetFolderPath
‘ ==============================================================================
‘ 堅牢化されたフォルダ選択ダイアログ関数
‘
‘ @param strMessage [IN] ダイアログ上に表示する指示メッセージ
‘ @param blnAllowNewFolder [IN] True: 新規フォルダ作成を許可 / False: 許可しない
‘ @param varRootFolder [IN] ルート制限（省略時は&H0011: マイコンピュータ）
‘ @return String 選択された絶対パス（キャンセル時は空文字 “”）
‘ ==============================================================================
Function SelectFolderDialog(ByVal strMessage, ByVal blnAllowNewFolder, ByVal varRootFolder)
SelectFolderDialog = “” ‘ 初期値として空文字を設定
‘ フラグ定数のローカル定義
Const BIF_RETURNONLYFSDIRS = &H0001 ‘ ファイルシステムフォルダのみ許可
Const BIF_NEWDIALOGSTYLE = &H0040 ‘ モダンUI（リサイズ可能）
Const BIF_NONEWFOLDERBUTTON = &H0200 ‘ 新規フォルダ作成ボタン非表示
Const ssfDRIVES = &H0011 ‘ CSIDL: マイコンピュータ（PC全体）
‘ オプションフラグの合成
Dim lngOptions
lngOptions = BIF_RETURNONLYFSDIRS Or BIF_NEWDIALOGSTYLE
If Not blnAllowNewFolder Then
lngOptions = lngOptions Or BIF_NONEWFOLDERBUTTON
End If
‘ ルートフォルダが未指定の場合は「マイコンピュータ」を頂点に設定
If varRootFolder = “” Then
varRootFolder = ssfDRIVES
End If
‘ 防御的プログラミング：COM呼び出しの安全制御
On Error Resume Next
Dim objShell, objFolder
Set objShell = CreateObject(“Shell.Application”)
If Err.Number <> 0 Then
On Error GoTo 0
Exit Function
End If
‘ ダイアログの表示（同期処理：選択またはキャンセルまで停止）
Set objFolder = objShell.BrowseForFolder(0, strMessage, lngOptions, varRootFolder)
‘ エラー状態の復帰
On Error GoTo 0
‘ ユーザー操作結果の判定
If Not objFolder Is Nothing Then
‘ 仮想フォルダ（コントロールパネル等）ではなく、実パスが存在するか検証
On Error Resume Next
Dim strSelectedPath
strSelectedPath = objFolder.Self.Path
If Err.Number = 0 And strSelectedPath <> “” Then
SelectFolderDialog = strSelectedPath
End If
On Error GoTo 0
End If
‘ ==========================================================================
‘ COMオブジェクトの明示的破棄（メモリリーク防止の徹底）
‘ ==========================================================================
Set objFolder = Nothing
Set objShell = Nothing
End Function
—
6. 実務連携における設計のポイント
`BrowseForFolder` で取得したパスを、ファイル操作やデータベース連携に引き渡す際の注意点を整理します。
1. `Scripting.FileSystemObject` (FSO) との連携
ダイアログ側で `BIF_RETURNONLYFSDIRS` を指定していても、取得したパスの末尾処理はスクリプト側で統一するべきです。FSOの `BuildPath` メソッドを利用することで、パスの結合エラーを100%防ぐことができます。
Dim objFSO, fullFilePath
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
‘ 手動で “C:\Folder” & “\” & “file.txt” と連結するのはNG。BuildPathを使う。
fullFilePath = objFSO.BuildPath(targetFolderPath, “output_log.txt”)
2. データベース（Access/SQL Server）へのログ書き込み・参照
取得したフォルダパスを接続文字列（ConnectionString）やSQL文に組み込む場合、単一引用符（`’`）やエスケープが必要な文字が含まれていないかチェックしてください。特にネットワークパス（`\\Server\Share`）をそのままDBのメタデータとして保持する場合は、文字列の長さをDB定義側で十分に確保（255文字以上、または `VARCHAR(MAX)` / `TEXT` 型）しておくことが鉄則です。
3. オブジェクトライフサイクルの管理
VBScriptはガベージコレクションのタイミングが環境依存であり、スクリプトの末尾で自動解放されるとはいえ、大容量のループ処理や長時間稼働するバッチ内でCOMオブジェクトを生成する場合は、使用直後に `Set obj = Nothing` で解放することを厳守してください。
—
まとめ：プロとしてのコードを書くために
たかが「フォルダ選択」と思うかもしれません。しかし、エンドユーザーの誤操作をGUIレベルでブロックし、例外が起きないパスを安全にバックエンドのロジック（FSOやDB）へと受け渡す設計は、スクリプト全体の信頼性を決める極めて重要な境界線です。
1. `InputBox` によるパス入力は即刻廃止する。
2. `BrowseForFolder` を使い、`BIF_NEWDIALOGSTYLE` と `BIF_RETURNONLYFSDIRS` を必須指定する。
3. 戻り値は `Folder` オブジェクト。`.Self.Path` の抽出と `Nothing` チェックを怠らない。
4. COMオブジェクトは生成したプロシージャ内で確実に `Nothing` 清算する。
この基本を徹底することで、あなたの作成するVBScriptツールは「ただ動くスクリプト」から「現場で長年運用に耐えうる堅牢なシステム」へと進化します。ぜひ次回の業務自動化プロジェクトから導入してください。
