VBA: SortBy og SortOrder i FileSearch har ingen effekt

Hej.

Jeg har nedenstående eksempel som ikke virker helt efter hensigten.

Sub test()
With Application.FileSearch
    .NewSearch
    .LookIn = "D:\folder"
    .SearchSubFolders = True
    .FileName = "*.xls"
    .MatchTextExactly = True
    .FileType = msoFileTypeAllFiles
End With
With Application.FileSearch
    If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
        MsgBox "There were " & .FoundFiles.Count & _
            " file(s) found."
        For i = 1 To .FoundFiles.Count
            Cells(i, 1) = .FoundFiles(i)
        Next i
    Else
        MsgBox "There were no files found."
    End If
End With
End Sub


Problemet er at SortBy og SortOrder .Execute funktionen ikke har nogen effekt. De fundne filer bliver slet ikke sorteret.

Hvad kan problemet være? Findes der evt. en anden måde at sortere filerne på hvis de ligger i et array?

På forhånd tak.