select multiple files *RESOLVED*

[robvr6]

Back again for more.

Does anybody know what modifications I need to add to this code to allow the user to either open a single file or select multiple files.

Code so far

Private Sub Command1_Click()
Dim strFile As String
 
On Error Resume Next
 
    With CommonDialog1
        .Flags = cdlOFNExplorer
        .Filter = "Mp3 (*.mp3)|*.mp3"
        .InitDir = "C:\"
        .DialogTitle = "Select File"
    
        .ShowOpen
        If Not .FileName = "" Then
            strFile = Mid(.FileName, InStrRev(.FileName, "\") + 1)
            If Dir(FAVORITES_FOLDER & strFile) = "" Then
                FileCopy .FileName, FAVORITES_FOLDER & strFile
            End If
        End If
    End With
 
End Sub

Cheers
Rob