Imports System.Windows.Forms
Module Module1
Sub Main()
' 「ファイルを開く」用オブジェクト作成
Dim ofd As OpenFileDialog = New OpenFileDialog()
' ダイアログが返す結果の型( 列挙体 )
Dim result As DialogResult
' ダイアログを開く
result = ofd.ShowDialog
' OK ボタンが押された処理
if result = System.Windows.Forms.DialogResult.OK Then
Console.Out.WriteLine(ofd.FileName)
End If
ofd.Dispose()
' 処理終了
Console.WriteLine("処理が終了しました")
' 一時停止
Console.Write("Enterキーを押して下さい : ")
Console.ReadLine()
End Sub
End Module