Syntax

expression.Extensions

expression An expression that returns a FileDialogFilter object.

Return Value
String

Example

The following example displays the extensions and descriptions for Microsoft Office Excel files by iterating through the filter in the SaveAs dialog box.

Visual Basic for Applications 
Sub Main() 'Declare a variable as a FileDialogFilters collection. Dim fdfs As FileDialogFilters 'Declare a variable as a FileDialogFilter object. Dim fdf As FileDialogFilter 'Set the FileDialogFilters collection variable to 'the FileDialogFilters collection of the SaveAs dialog box. Set fdfs = Application.FileDialog(msoFileDialogSaveAs).Filters 'Iterate through the description and extensions of each 'default filter in the SaveAs dialog box. For Each fdf In fdfs 'Display the description of filters that include 'Microsoft Excel files. If InStr(1, fdf.Extensions, "xls", vbTextCompare) > 0 Then MsgBox "Description of filter: " & fdf.Description End If Next fdf End Sub

See also: