ファイル選択ダイアログはExcelを使うのがベターという状況

[WSH][VBS]

Excelの機能を呼び出すのが一番いいらしい。変なの。

ネタ元

• http://froghand0104.blogspot.jp/2010/10/blog-post_24.html

'1ファイル選択ファイル
Dim Excel, xlBaseFilePath
Set Excel = CreateObject("Excel.Application")
xlBaseFilePath = Excel.GetOpenFilename("Text File,*.txt,All,*.*",1,"ファイルを選択して下さい","開く",false)
If xlBaseFilePath <> False Then
	'no work	'MsgBox xlBaseFilePath
Else
    WScript.Quit
End If

'複数ファイル選択
Dim xlOpenFileName
xlOpenFileName = Excel.GetOpenFilename("Text File,*.txt,All,*.*",1,"ファイルを選択して下さい(複数可)","開く",True)
If IsArray(xlOpenFileName) Then
    '選択されたファイルへの処理
	'no work
Else
'    MsgBox "キャンセルされました"
    WScript.Quit
End If

'出力ファイル選択
Dim xlGetSaveAsFilename
xlGetSaveAsFilename = Excel.GetSaveAsFilename("", "Text File,*.txt,All,*.*", 1,"出力するファイル名を指定して下さい","保存")
If xlGetSaveAsFilename <> False Then
	'no work 'MsgBox xlGetSaveAsFilename
Else
    WScript.Quit
End If
Excel.Quit
Set Excel = Nothing