Let user choose multiple files?

[Robert Crandal]

I am looking for an easy way to let users choose
multiple files all at once. Is the built-in FileDialog()
function my only choice?? I am curious if there are other
options for letting users drag and drop multiple files into a
form or dialog box??

Please let me know. Thanks!

Robert.

 

[isabelle]

hi Robert,

Sub sDialogFilePicker()
Dim fd As FileDialog
Dim oFile As String

Dim sFileName As String

Set fd = Application.FileDialog(msoFileDialogFilePicker)

With fd
.AllowMultiSelect = True
.Show

On Error Resume Next
If Err.Number <> 0 Then Err.Clear: Exit Sub


For i = 1 To .SelectedItems.Count
Debug.Print .SelectedItems(i)
Next

End With
End Sub

isabelle


Le 2013-01-30 03:07, Robert Crandal a écrit :

 

[Robert Crandal]

Thank you Isabelle. You're always very helpful! 8)

 

[joeu2004]

I am looking for an easy way to let users choose
multiple files all at once.

I do it this way.

Dim fnames As Variant
fnames = Application.GetOpenFilename(MultiSelect:=True)
If TypeName(fnames) = "Boolean" Then Exit Sub
For i = 1 To UBound(fnames)
Debug.Print fnames(i)
Next i