Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

The FileDialog Object

Sub SaveDialog()     Dim dlgSaveAs As FileDialog     Set dlgSaveAs = Application.FileDialog(DialogType:=msoFileDialogSaveAs)     dlgSaveAs.Show     msgBox dlgSaveAs.SelectedItems(1) End Sub