File Path VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. File Path
  4. 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