Selecting Multiple Files

[Yachem]

Does anyone know how to create a Dialog box that will allow me to select multiple files, rather than just one? Right now I have it set up to where the user can enter the filenames manually, but I would rather be able to just select all the files at once from just one dialog box.

[peet]

Private Sub Command1_Click()
    Dim sArr() As String
    Dim i As Integer
    CommonDialog1.Flags = cdlOFNAllowMultiselect + cdlOFNExplorer
    CommonDialog1.ShowOpen
    sArr = Split(CommonDialog1.FileName, Chr(0))
    For i = 0 To UBound(sArr())
        Debug.Print sArr(i)
    Next i
End Sub

[Yachem]

Thanks man, you rule.

[FreeLz]

Thanks for the tip, but when I select all the files in the folder it returns nothing. It works if I only select a few of the files but not all. And I am not talking about hundreds of files, I am just doing a test of about 20 or so files.

Got any ideas??

[darre1]

the CommonDialog control also has a MaxFileSize Property, it limits to maximum number of filenames it can return...you may have to fiddle with that

[FreeLz]

That be it, thanks man!

Originally posted by darre1
the CommonDialog control also has a MaxFileSize Property, it limits to maximum number of filenames it can return...you may have to fiddle with that

[darre1]

welcome