Objeto FileSearch

Es posible que algunas partes de este tema no sean aplicables a algunos idiomas.

Representa la función del cuadro de diálogo Abrir (menú Archivo).

Uso del objeto FileSearch

Utilice la propiedad FileSearch para devolver el objeto FileSearch. El siguiente ejemplo busca los archivos especificados y muestra el número de archivos encontrados y el nombre de cada archivo.

With Application.FileSearch
    If .Execute() > 0 Then
        MsgBox "There were " & .FoundFiles.Count & _
            " file(s) found."
        For i = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(i)
        Next i
    Else
        MsgBox "There were no files found."
    End If
End With

Utilice el método NewSearch para restablecer el valor predeterminado de la búsqueda de criterios. Todos los valores de las propiedades se mantienen después de ejecutar cada búsqueda y, utilizando el método NewSearch es posible establecer de forma selectiva las propiedades de la siguiente búsqueda de archivos sin restablecer de forma manual los valores anteriores. El siguiente ejemplo restablece los criterios de búsqueda predeterminados antes de comenzar una nueva búsqueda.

With Application.FileSearch
    .NewSearch
    .LookIn = "C:\My Documents"
    .SearchSubFolders = True
    .FileName = "Run"
    .MatchTextExactly = True
    .FileType = msoFileTypeAllFiles
End With