Common Dialog Multi Select

This code will allow you to select multiple files from the common dialog box.


Option Explicit
'This will hold the files you select
Dim mySelet As String

Private Sub Form_Click()
'You need to use Shift to select multiple file.
   On Local Error GoTo OpenError

   With CommonDialog1
      .CancelError = True
      .Flags = cdlOFNAllowMultiselect Or _
               cdlOFNExplorer Or _
               cdlOFNPathMustExist

      .MaxFileSize = 1024

      .ShowOpen

      mySelet = FileName

   End With

   Exit Sub

OpenError:
   MsgBox "Cancel pressed"
   Exit Sub