Select Multiple Files

Dim f As Object 'FileDialog  
Set f = Application.FileDialog(3) 'msoFileDialogFilePicker
With f
' .AllowMultiSelect = True 'default
   .InitialFileName = "C:\Temp\"
' Specify filters
' .Filters.Clear
' .Filters.Add "All Files", "*.*"
   .Show
   Dim varFile As Variant
   For Each varFile In .SelectedItems
      MsgBox Trim(varFile)
   Next
End With


© 2021 Better Solutions Limited. All Rights Reserved. © 2021 Better Solutions Limited TopPrevNext