Sziasztok!

Tapasztalataim, és az itt tanultak alapján szerintem az Application.FileSearch helyett fájlkeresésre, megnyitásra, majd zárásra érdemes az alábbi kis rutint használni:

Sub Fájlista()
Dim EredményekHelye As String
Dim f As String

    EredményekHelye = "C:mappa1mappa11"
    f = Dir(EredményekHelye & "*.xls", vbNormal)

    Do While f <> ""
      Workbooks.Open Filename:=EredményekHelye & f
      MsgBox "A(z) " & f & " megnyitva, most pedig, mentés nélkül bezárom..." & Space(5), vbInformation, "Fájlkezelés"
      ActiveWorkbook.Close False
      f = Dir()
    Loop

End Sub