|
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
|