Ever wonder how to return multiple files using the CommonDialog control? Here is a short demonstration of how to get it done.
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