ファイル選択ダイアログ

InternetExplorerを使用したダイアログ

Option Explicit

Dim objIE
Did filePath

' Internet Explorerオブジェクト生成.
Set objIE = Createobject( "InternetExplorer.Application" )

' 設定.
objIE.Navigate "about:blank"

objIE.Document.Write "<html>"
objIE.Document.Write "<head>"
objIE.Document.Write "</head>"
objIE.Document.Write "<body>"
objIE.Document.Write "  <form name='fileSelect'>"
objIE.Document.Write "    <input type=file name='filedialog'>"
objIE.Document.Write "  </form>"
objIE.Document.Write "</body>"
objIE.Document.Write "</html>"

objIE.Document.forms("fileSelect").elements("filedialog").click

' ファイルのパスを取得.
filePath = objIE.Document.forms("fileSelect").elements("filedialog").value

' 後片付け.
objIE.Quit
Set objIE = Nothing

WScript.Echo filePath

ファイル選択のダイアログのサンプルです。

ファイル選択とフォルダ選択は何かと使えますね。

VBscriptでも強い味方です。正規表現。

呪文のような文章で超強力な威力を発する正規表現！本サイト正規表現のページはこちら！