• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Getting Multiple Files back from the CommonDialog Control

Getting Multiple Files back from the CommonDialog Control

Getting Multiple Files back from the CommonDialog Control

Rate Getting Multiple Files back from the CommonDialog Control

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

' ------------------------------------------------------------
'  Copyright ©2001 Mike G --> IvbNET.COM
'  All Rights Reserved, http://www.ivbnet.com
'  EMAIL : [email protected]
' ------------------------------------------------------------
'  You are free to use this code within your own applications,
'  but you are forbidden from selling or distributing this
'  source code without prior written consent.
' ------------------------------------------------------------

Private Sub cmdExit_Click()
    Unload Me
End Sub

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