Let user choose multiple files?
Thank you Isabelle. You're always very helpful! 8)
"isabelle" wrote in message ...
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 :
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.
|