File Path VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. File Path
  4. 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