ファイルダイアログを表示 - VB

ファイルダイアログを表示するときにはOpenFileDialogを使う

Dim ofd As New OpenFileDialog()

' タイトルを設定する
ofd.Title = "開くファイルを選択してください"

' ダイアログを表示
If ofd.ShowDialog() = DialogResult.OK Then
    ' ファイルが選択された時
    ' 選択されたファイルパスをコンソールに表示
    Console.WriteLine(ofd.FileName)
End If

複数ファイル選択できるようにする

Dim ofd As New OpenFileDialog()

' 複数ファイルを選択できるようにする
ofd.Multiselect = True

' ダイアログを表示
If ofd.ShowDialog() = DialogResult.OK Then

    Dim fn As String

    ' 選択されたファイルパスをコンソールに表示
    For Each fn In ofd.FileNames
        Console.WriteLine(fn)
    Next
    
End If

---

参考文献

「ファイルを開く」ダイアログボックスを表示する: .NET Tips: C#, VB.NET