Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

Set the AllowMultiSelect property of the dialog box to allow multiple selections in the dialog box

Sub OpenDialog()     Dim dlgOpen As FileDialog     Set dlgOpen = Application.FileDialog( _         DialogType:=msoFileDialogOpen)     With dlgOpen          .AllowMultiSelect = True          .Show     End With     msgBox dlgOpen.SelectedItems(1) End Sub