複数の「ファイル名を指定して実行」を開く。

Vistaでは、なぜか「ファイル名を指定して実行」がひとつしか開きません。
そこで、.NETで作ります。

vbc /t:winexe FileRun.vb

Module Module1
Declare Auto Function SHRunDialog Lib "shell32" Alias "#61" (hWnd As Integer, hIcon As Integer, lpszPath As String, szTitle As String, szPrompt As String, uFlags As Integer) As Integer
Sub Main()
Dim sTitle As String = "ファイル名を指定して実行"
Dim sPrompt As String = "実行するプログラム名、または開くフォルダやドキュメント名、インターネット リソース名を入力してください。"
SHRunDialog(0, 0, Environment.CurrentDirectory, sTitle, sPrompt, 0)
End Sub
End Module