Files in 2007 einlesen gibt Fehlermeldung

Sub SU_Innendienst_Obj_Meldungen()
Const strPfad As String = "C:\temp"
Dim i As Integer
Dim fs As FileSearch
ChDrive ("C:")
ChDir strPfad
Set fs = Application.FileSearch ' in 2003 ok, in 2007 Laufzeitfehler 445, Objekt unterstützt  _
diese Aktion nicht
With fs
.FileType = msoFileTypeExcelWorkbooks
.LookIn = CurDir
.Execute
For i = 1 To .FoundFiles.Count
MsgBox Dir(.FoundFiles(i))
Next i
End With
End Sub

Bin dankbar für jede Unterstützung - brauche diese Funktion dringend
Danke
PeterE