Search Tools Links Login

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

About this post

Posted: 2019-08-24
By: MikeG
Viewed: 229 times

Categories

Visual Basic 6

Attachments

No attachments for this post

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.