File Path VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. File Path
  4. The FileDialog Object
Sub SaveDialog()
    Dim dlgSaveAs As FileDialog
    Set dlgSaveAs = Application.FileDialog(DialogType:=msoFileDialogSaveAs)
    dlgSaveAs.Show
    msgBox dlgSaveAs.SelectedItems(1)
End Sub