VBA-Programmierung in Microsoft Excel

VBA-Begriff: Beispiel zur Execute-Methode (FileSearch-Objekt)

In diesem Beispiel wird im Ordner My Documents nach allen Dateien gesucht, die die Dateinamenerweiterung .doc haben. Für jede gefundene Datei wird anschließend der Pfad und der Name angezeigt. Die Liste der zurückgegebenen Dateien wird außerdem in aufsteigender alphabetischer Reihenfolge sortiert.

Set fs = Application.FileSearch
With fs
    .LookIn = "C:\My Documents"
    .FileName = "*.doc"
    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