Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click '単数・複数ファイル選択 OpenFileDialog1.Multiselect = CheckBox1.Checked OpenFileDialog1.Filter = "すべてのファイル(*.*)|*.*" OpenFileDialog1.InitialDirectory = "c:\"
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
ListBox1.Items.Clear()
For Each strFilePath As String In OpenFileDialog1.FileNames
Dim strFileName As String = IO.Path.GetFileName(strFilePath)
ListBox1.Items.Add(strFilePath) Next End If End Sub