VBS(WSH)でファイル選択ダイアログ

vbscript

VBSでファイル選択ダイアログ。以前どっかに転がってたヤツを改良しただけ。
ネタ元は見つけられませんでした。

ソース

Dim strPath

strPath = getFilePath()

MsgBox strPath

Function getFilePath()

	Dim objIE

	'IEを起動
	Set objIE = WScript.CreateObject("InternetExplorer.Application")
	objIE.Navigate "about:blank"
	Do While objIE.Busy = True And objIE.ReadyState <> 4
		WScript.Sleep 100
	Loop

	'ファイル参照ボタンを作って
	objIE.document.write "<html><body><input type='file' id='myFile'></body></html>"
	'それを押させる
	objIE.document.getElementById("myFile").click

	'inputのvalueにファイルのパスが格納されてるので返す
	getFilePath = objIE.document.getElementById("myFile").Value

	'後始末
	objIE.Quit
	Set objIE = Nothing

End Function

フォルダーの参照は出来ませんが、ファイル限定ならこれで充分です。