Noah thread 2nd.

'Noah本体の場所を指定
Noah = "C:\bin\noah3193\Noah.exe"

'渡されたファイルの処理
With Wscript
Set objParm = .Arguments
If objParm.Count = 0 Then
    .echo "ファイルをドラッグ＆ドロップしてください。"
    .Quit()
End If

'展開先のフォルダを選択
set objFolder = CreateObject("Shell.Application").BrowseForFolder(0, "展開先のフォルダを選択", 0, "c:\\")
If objFolder Is Nothing Then .Quit()

'ファイル毎にオプションをつけてNoahを起動
Set WshShell = CreateObject("WScript.Shell")
For i=0 To objParm.Count-1
    WshShell.Run Noah & " -x ""-d" & _
      objFolder.Items().Item().Path & """ """ & objParm(i) & """", 1, True
Next
End With