Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

Displays a dialog box that allows the user to select a directory The selected directory name (or Canceled) is then displayed by

Sub GetAFolder()       With Application.FileDialog(msoFileDialogFolderPicker)         .InitialFileName = Application.DefaultFilePath & "\"         .Title = "Please select a location for the backup"         .Show         If .SelectedItems.Count = 0 Then             MsgBox "Canceled"         Else             MsgBox .SelectedItems(1)         End If       End With   End Sub