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'>