Let user choose multiple files?
"Robert Crandal" wrote:
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
|