Objeto FileDialogFilter

FileDialogFilters FileDialogFilter

Representa un filtro de archivos en un cuadro de diálogo de archivos que se muestra mediante el objeto FileDialog. Cada filtro de archivos determina qué archivos se muestran en el cuadro de diálogo de archivos.

Utilizar el objeto FileDialogFilter

Utilice el método Item con la colección FileDialogFilters para devolver un objeto FileDialogFilter. Utilice el método Add para agregar un objeto FileDialogFilter a la colección FileDialogFilters. Puede devolver las extensiones que utiliza un objeto FileDialogFilter para filtrar archivos con la propiedad Extensions y devolver la descripción del filtro con la propiedad Description; sin embargo, estas propiedades son de sólo lectura. Si desea establecer la extensión o descripción deberá utilizar el método Add.

El ejemplo siguiente repite los filtros predeterminados del cuadro de diálogo Guardar como y muestra la descripción de cada filtro que incluye un archivo de Microsoft Excel.

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