Private Sub Mp3形式ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mp3形式ToolStripMenuItem.Click Dim dialog As New FolderBrowserDialog If dialog.ShowDialog = Windows.Forms.DialogResult.OK Then For Each FilePath As String In IO.Directory.GetFiles(dialog.SelectedPath, "*.mp3") ListBox1.Items.Add(IO.Path.GetFileName(FilePath)) Next End If dialog.Dispose() End Sub