【引数処理の極意】WScript.Argumentsで制すドラッグ＆ドロップ自動化の極限
レガシーシステムの裏側、あるいは日常のオペレーション自動化において、VBScript（Visual Basic Scripting Edition）とWSH（Windows Script Host）のコンビネーションがいまだに最強のカードであることは、現場を知るエンジニアであれば異論のないところだろう。
特に、非エンジニアの一般ユーザーに業務ツールを提供する場合、「スクリプトのアイコンにファイルやフォルダをドラッグ＆ドロップさせる」というUIは、GUIとCUIの境界をシームレスに繋ぐ極めて強力なインターフェースとなる。
本稿では、`WScript.Arguments` を極限まで使い倒し、複数ファイルの並行処理、パスのバリデーション、そしてレガシー環境特有の罠を回避するセキュアかつ堅牢な引数処理の実装パターンを解説する。
—
1. WScript.Arguments の本質と致命的な罠
多くの解説サイトでは、`WScript.Arguments(0)` のように単純にインデックスを指定して引数を取得するコードが紹介されている。しかし、実務の現場において、この書き方は「システム停止の爆弾を抱えている」と同義である。
1.1 `WScript.Arguments` コレクションの構造
`WScript.Arguments` は、COMオブジェクトであり、厳密には `WshArguments` コレクションを返す。ここには大きく分けて2つのアクセス方法が存在する。
1. 名前付き引数（Named Arguments）: `/s:value` や `-s:value` の形式。
2. 名前なし引数（Unnamed Arguments）: ドラッグ＆ドロップされたファイルのフルパスなど、純粋な位置引数。
ファイルやフォルダのドラッグ＆ドロップ処理において、ユーザーが意図せずスイッチ構文（`/` や `-` で始まるファイル名）を渡してしまった場合、名前付き引数として誤認され、`WScript.Arguments(0)` の挙動が狂う可能性がある。
そのため、堅牢なスクリプトでは必ず `WScript.Arguments.Unnamed` を明示的にターゲットにしなければならない。
—
2. 【実戦コード】複数ファイル・フォルダ対応ドラッグ＆ドロップ自動化エンジン
以下のコードは、単一ファイル、複数ファイル、さらにはフォルダのドラッグ＆ドロップを同時に許容し、それぞれを安全にルーティングするプロダクション品質のVBScriptテンプレートである。
メモ帳等に貼り付け、文字コード Shift-JIS (CP932) または BOM付きUTF-8 で保存し、拡張子を `.vbs` として運用してほしい。
‘ ==============================================================================
‘ Script Name: AdvancedDropHandler.vbs
‘ Description: ドラッグ＆ドロップされたファイル/フォルダの安全な一括処理エンジン
‘ Architecture: WSH / VBScript (Engineered for Enterprise Operations)
‘ ==============================================================================
Option Explicit
‘ メイン処理の実行と例外ハンドリング
Call Main()
Sub Main()
Dim fso, shell
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set shell = CreateObject(“WScript.Shell”)
‘ 1. 引数の存在チェック
If WScript.Arguments.Unnamed.Count = 0 Then
MsgBox “処理対象のファイルまたはフォルダがドロップされていません。” & vbCrLf & _
“スクリプトアイコンにファイルをドラッグ＆ドロップしてください。”, _
vbExclamation, “引数エラー”
Call Cleanup(fso, shell)
Exit Sub
End If
Dim argCount, successCount, errorCount
argCount = WScript.Arguments.Unnamed.Count
successCount = 0
errorCount = 0
‘ 2. コレクションの走査（パフォーマンスを意識したインデックスアクセス）
Dim i, targetPath
For i = 0 To argCount – 1
targetPath = WScript.Arguments.Unnamed(i)
‘ 3. パスの実在確認と属性判定
If fso.FolderExists(targetPath) Then
‘ フォルダがドロップされた場合
If ProcessFolder(targetPath, fso) Then
successCount = successCount + 1
Else
errorCount = errorCount + 1
End If
ElseIf fso.FileExists(targetPath) Then
‘ ファイルがドロップされた場合
If ProcessFile(targetPath, fso) Then
successCount = successCount + 1
Else
errorCount = errorCount + 1
End If
Else
‘ 不正なパス、またはアクセス権限がない場合
errorCount = errorCount + 1
End If
Next
‘ 4. 処理結果のサマリー通知
MsgBox “処理が完了しました。” & vbCrLf & _
“総件数: ” & argCount & ” 件” & vbCrLf & _
“成功: ” & successCount & ” 件” & vbCrLf & _
“失敗/スキップ: ” & errorCount & ” 件”, _
vbInformation, “バッチ処理完了”
Call Cleanup(fso, shell)
End Sub
‘ ==============================================================================
‘ 個別ファイル処理ロジック
‘ ==============================================================================
Function ProcessFile(ByVal filePath, ByVal fso)
On Error Resume Next
Dim fileExt
fileExt = LCase(fso.GetExtensionName(filePath))
‘ 例：特定の拡張子（例: .csv）のみを処理する場合のガード節
‘ If fileExt <> “csv” Then
‘ ProcessFile = False
‘ Exit Function
‘ End If
‘ — ここに実際のファイル処理を記述 —
‘ 簡易的にファイル名をエコー出力（実務ではここにAPI連携やデータ加工を実装）
‘ WScript.Echo “Processing File: ” & filePath
If Err.Number = 0 Then
ProcessFile = True
Else
ProcessFile = False
End If
On Error GoTo 0
End Function
‘ ==============================================================================
‘ フォルダ再帰処理ロジック（一括処理の拡張）
‘ ==============================================================================
Function ProcessFolder(ByVal folderPath, ByVal fso)
On Error Resume Next
Dim targetFolder, subFile
Set targetFolder = fso.GetFolder(folderPath)
‘ フォルダ直下のファイルを走査（必要に応じて再帰関数化する）
For Each subFile in targetFolder.Files
‘ 例として各ファイルに対してProcessFileを呼び出す
Call ProcessFile(subFile.Path, fso)
Next
If Err.Number = 0 Then
ProcessFolder = True
Else
ProcessFolder = False
End If
On Error GoTo 0
End Function
‘ ==============================================================================
‘ メモリリーク防止のための明示的解放（オブジェクトのライフサイクル管理）
‘ ==============================================================================
Sub Cleanup(ByRef fso, ByRef shell)
Set shell = Nothing
Set fso = Nothing
End Sub
—
3. チーフアーキテクトが解説するコードの急所
上記のコードが、単なる「動くスクリプト」のレベルを超えている理由をアーキテクチャの観点から解説する。
3.1 `Option Explicit` による暗黙の宣言排除
VBScriptでは、変数の型宣言なしに変数が使用できる（デフォルト）という悪しき仕様が存在する。大規模化するスクリプトにおいて、タイポによるバグをコンパイル段階（実行開始時）で検知するため、`Option Explicit` の記述は必須の作法である。
3.2 `WScript.Arguments.Unnamed` の強制
前述した通り、ユーザーが `script.vbs /log:debug.txt C:\data.csv` のような形で起動、あるいは特殊なファイル名をドロップした場合、`WScript.Arguments(0)` は `/log:debug.txt` を拾ってしまう。`.Unnamed(i)` を使うことで、純粋な位置引数（ドロップされたアイテムのリスト）のみを安全に抽出できる。
3.3 メモリ最適化と COM オブジェクトの明示的解放
VBScriptの内部ランタイムはCOM（Component Object Model）ベースで動作している。スクリプト終了時に自動解放されるとはいえ、長時間の常駐プロセスや、数千件のファイルをループ処理するスクリプトにおいて、`FileSystemObject` や `WScript.Shell` などの重いCOMオブジェクトを放置することは、メモリリークやハンドル枯渇を引き起こす原因となる。
スクリプトの終端で `Set fso = Nothing` と明示的に参照を切断する意識こそが、レガシー環境で安定稼働するシステムの生命線である。
—
4. 発展：VBAや外部システムとの連携・コマンドライン呼び出し
このスクリプトは、エクスプローラからのドラッグ＆ドロップだけでなく、完全なCUIツールとしても機能する。
コマンドプロンプトや、他の基幹システム（C#製アプリケーションやVBAマクロ）から以下のように呼び出すことが可能だ。
:: コマンドラインからのバッチ実行例
cscript.exe //Nologo “C:\Tools\AdvancedDropHandler.vbs” “C:\data\input1.csv” “C:\data\input2.csv”
さらに、Microsoft AccessやExcelのVBAから、このVBScriptを非同期（`WScript.Shell.Run`）で叩くことで、VBA単体では実装が面倒な複雑なファイル列挙・一括処理ロジックを、VBScript側にオフロードする高度なアーキテクチャ設計も成立する。
‘ VBAからの呼び出しスニペット例
Sub CallVBScriptBatch()
Dim wsh As Object
Set wsh = CreateObject(“WScript.Shell”)
Dim scriptPath As String
scriptPath = “C:\Tools\AdvancedDropHandler.vbs”
Dim targetFile As String
targetFile = “C:\Reports\Target_2023.csv”
‘ コマンドを組み立てて実行（第2引数 0 = ウィンドウ非表示, 第3引数 True = 終了同期）
wsh.Run “cscript.exe //Nologo “”” & scriptPath & “”” “”” & targetFile & “”””, 0, True
Set wsh = Nothing
End Sub
—
総括
VBScriptは「古い言語」として片付けられがちだが、OSのレイヤーに直結し、追加のランタイムインストールなしで動作するという圧倒的な機動性は、インフラ自動化やローカル環境のデータ処理においていまだに代替不可能な価値を持っている。
`WScript.Arguments` の挙動を完全に掌握し、堅牢なエラーハンドリングとメモリ管理を施したスクリプトは、10年後であってもWindows環境の縁の下の力持ちとして機能し続けるだろう。現場のエンジニア諸君には、ただ動くだけのコードではなく、こうしたアーキテクチャの美しさを宿したコードを書き続けてほしい。
