Propiedad Extensions
Devuelve un valor String que contiene las extensiones que determinan qué archivos se muestran en un cuadro de diálogo de archivos para cada objeto Filter. Es de sólo lectura.
expresión.Extensions
expresión Requerida. Expresión que devuelve uno de los objetos de la lista Aplicar a.
Ejemplo
El ejemplo siguiente repite los filtros predeterminados del cuadro de diálogo Guardar como y muestra la descripción de los filtros que incluye cada archivo de Microsoft Excel. La propiedad Extensions se utiliza para encontrar los objetos de filtro apropiados.
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