■

ファイル種別(拡張子)が不明なファイルを開く場合のエクスプローラの挙動を、自作プログラムでも真似る方法

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ofd1.Filter = "All files|*.*"
ofd1.FileName = ""
Dim result As DialogResult = ofd1.ShowDialog()
If result <> Windows.Forms.DialogResult.Cancel Then
OpenWith(ofd1.FileName)
End If
End Sub
Private Sub OpenWith(ByVal xFileName As String)
Process.Start("RUNDLL32.EXE", "shell32.dll,OpenAs_RunDLL " & xFileName)
End Sub

なんだ、結局、以下の処置でよいのか・・・

Dim myProcess As New Process

myProcess.StartInfo.FileName = strNewTempFile
myProcess.StartInfo.ErrorDialog = True

myProcess.Start()