Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

Open File Open Dialog and get the selection (Dialog Types Used with the FileDialog Object)

Dialog Type      VBA Constant (FileDialogType)          Open             msoFileDialogOpen          Save             msoFileDialogSaveAs          File Picker      msoFileDialogFilePicker          Folder Picker    msoFileDialogFolderPicker        Sub openDlg()     Dim fc As FileDialogFilters     Dim ff As FileDialogFilter     Set fc = Application.FileDialog(msoFileDialogOpen).Filters     Set ff = fc.Item(1)     MsgBox ff.Description & ff.Extensions     'Displays "AllFiles" and *.* End Sub