VBA-Programmierung in Microsoft Excel

VBA-Begriff: FoundFiles-Objekt

Stellt die Liste der Dateien dar, die von einer Dateisuche zurückgegeben werden.

Verwenden des FoundFiles-Objekts

Verwenden Sie die FoundFiles-Eigenschaft, um das FoundFiles-Objekt zurückzugeben. In diesem Beispiel wird die Liste der gefundenen Dateien durchlaufen, und Pfad und Dateiname jeder Datei werden angezeigt. Verwenden Sie FoundFiles(index), wobei index die Indexnummer ist, um den Pfad und den Dateinamen einer bestimmten bei dem Suchlauf gefundenen Datei zurückzugeben.

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

Verwenden Sie die Execute-Methode, um die Dateisuche zu beginnen und das FoundFiles-Objekt zu aktualisieren. Im folgenden Beispiel wird der Ordner My Documents nach allen Dateien durchsucht, deren Name mit Cmd beginnt, und Name und Verzeichnis jeder gefundenen Datei werden angezeigt. Dabei werden die zurückgegebenen Dateien in aufsteigender alphabetischer Reihenfolge nach dem Dateinamen sortiert.

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