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