Author  

Language  

Operating Systems  

Private Sub cmdOpen_Click()
    Dim sFileNames() As String
    Dim iCount As Integer

    cd.Filter = "All Files|*.*"
    cd.Flags = cdlOFNAllowMultiselect
    cd.ShowOpen

    If cd.FileName <> "" Then
        sFileNames = Split(cd.FileName, Chr(32))
        For iCount = LBound(sFileNames) To UBound(sFileNames)
            MsgBox sFileNames(iCount), vbInformation
        Next

    End If
End Sub