Allows the user to open a file
.InitialFileName = "C:\temp\"
.InitialView = msoFileDialogView.msoFileDialogViewLargeIcons
Dim objFileDialog As Office.FileDialog
Set objFileDialog = Application.FileDialog(MsoFileDialogType.msoFileDialogOpen)
.AllowMultiSelect = True
.ButtonName = "Open"
.Title = "Open"
If (.Show > 0) Then
Set oFileDialogSelectedItems = .SelectedItems
FileDialogSelectedItems - A collection of string values that correspond to the folder paths of the files or folders that have been selected.
© 2020 Better Solutions Limited. All Rights Reserved. © 2020 Better Solutions Limited TopPrevNext