Objeto FoundFiles

Representa la lista de archivos devueltos en una búsqueda de archivos.

Uso del objeto FoundFiles

Utilice la propiedad FoundFiles para devolver el objeto FoundFiles. Este ejemplo recorre la lista de archivos encontrados y muestra la ruta de acceso y el nombre de cada archivo. Utilice FoundFiles (index), donde (index) es el número del índice, para volver a la ruta de acceso y al nombre del archivo de un archivo específico encontrado durante la búsqueda.

With Application.FileSearch
    For i = 1 To .FoundFiles.Count
        MsgBox .FoundFiles(i)
    Next I
End With

Utilice el método Execute para comenzar la búsqueda de archivos y actualizar el objeto FoundFiles. El siguiente ejemplo busca en la carpeta My Documents todos los archivos que comiencen por "Cmd" y muestra la ubicación y nombre de cada archivo encontrado. El ejemplo también ordena los archivos devueltos por nombre de archivo en orden alfabético ascendente.

Set fs = Application.FileSearch
With fs
    .LookIn = "C:\My Documents"
    .FileName = "cmd*"
    If .Execute(SortBy:=msoSortbyFileName, _
    SortOrder:=msoSortOrderAscending) > 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