ファイル選択ダイアログを表示するVBScriptをまとめてみました。 OSやIEのバージョンによっては実行できないものもあります。 Option Explicit 'MsgBox GetFilePathMC() 'MsgBox GetFilePathSF() 'MsgBox GetFilePathUACD() 'MsgBox GetFilePathIE() MsgBox GetFilePathIE2() Private Function GetFilePathMC() 'Comdlg32.ocxを利用したダイアログ '※ 要コントロールデザイン時のライセンス(http://support.microsoft.com/kb/281848/ja) With CreateObject("MSComDlg.CommonDialog") .Filter = "All Files|*.*" .Init