Imports Microsoft.WindowsAPICodePack.Dialogs Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Using dlg As New CommonOpenFileDialog() dlg.IsFolderPicker = True dlg.Multiselect = False '単一選択 dlg.AllowNonFileSystemItems = False 'コントロール パネル等は選べないようにする dlg.Title = "フォルダーを選んでください。" If dlg.ShowDialog() = CommonFileDialogResult.Cancel Then Return End If '単一選択モードでは FileName プロパティを使う TextBox1.Text = dlg.FileName End Using End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Using dlg As New CommonOpenFileDialog() dlg.Multiselect = True '複数選択 dlg.IsFolderPicker = True dlg.AllowNonFileSystemItems = False dlg.Title = "フォルダーを選んでください。" If dlg.ShowDialog() = CommonFileDialogResult.Cancel Then Return End If '複数選択モードでは FileNames プロパティを使う ListBox1.DataSource = dlg.FileNames.ToArray() End Using End Sub End Class