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.