[VB6 ] 加入檔案選取問題？？

[wwway (拉拉)]

Option Strict Off
Option Explicit On
Friend Class PathDialog
        Inherits System.Windows.Forms.Form
        Public returnCode As Boolean

        Private Sub CancelButton_Renamed_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CancelButton_Renamed.Click
                returnCode = False
                Me.Hide()
        End Sub

        Private Sub dir_Renamed_Change(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles dir_Renamed.Change
                file.Path = dir_Renamed.Path
        End Sub

        Private Sub drive_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles drive.SelectedIndexChanged
                dir_Renamed.Path = drive.Drive
        End Sub

        Private Sub file_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles file.SelectedIndexChanged
        txtPath.Text = file.Path & "\" & file.FileName
        End Sub

        Private Sub PathDialog_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
                returnCode = True
        End Sub

        Private Sub OKButton_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles OKButton.Click
                returnCode = True
                Me.Hide()
        End Sub
End Class




程式如上，
請問我要如何將該程式修改程可以選擇多檔的程式？

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.121.208.30
推 albb0920:建議用ListBox做...