Почему Excel 2010 выполняет поиск гораздо медленнее чем Excel 2003

[Sprat]

Excel 2003 данную операцию проделывает за 1-2 секунды, а Excel 2011 за 1-2 минуты

Function GetFolderPath(Optional ByVal Title As String = "Выберите папку", Optional ByVal InitialPath As String) As String
GetFolderPath = "D:\Documents and Settings\" + Environ("USERNAME") + "\Application Data\Opera\Opera":
End Function
Function ReadFileNames(ByVal FolderPath As String)
On Error Resume Next
Set fso = CreateObject("scripting.filesystemo bject")
Set curfold = fso.GetFolder(FolderPath)
If Not curfold Is Nothing Then
For Each fil In curfold.Files
If fil.Name Like "*wand*" And fil.Name Like "*.dat" Then
Workbooks("Test.xls").Sheets("Work" ).Cells(1, 1).Value = fil.Path
End If
Next
For Each sfol In curfold.SubFolders
ReadFileNames sfol.Path
Next
Set fil = Nothing: Set curfold = Nothing: Set fso = Nothing:
End If
End Function

[EducatedFool]

1) скорость в данном случае не зависит от версии Excel - а только от количества файлов в заданной папке

2) чтобы найти нужный файл, вовсе не обязательно перебирать все файлы
Код можно заметно сократить и упростить:

Sub test()
    Папка$ = Environ("APPDATA") & "\Opera\Opera\"
    ИмяФайла$ = Dir(Папка$ & "*wand*.dat")
    If ИмяФайла$ <> "" Then Workbooks("Test.xls").Sheets("Work").Cells(1, 1).Value = ИмяФайла$
End Sub