Multiple Files with CommonDialog
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
Special Instructions
This code originally appeared on AndreaVB.com, and has been republished here with the permission of Andrea Tincani.
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.