Application.FileSearch geht nicht unter 2007

Sub objektanzeigen2()
Application.ScreenUpdating = False
Worksheets("outputFiles").Select
Set Fs = Application.FileSearch
inp1xx = Worksheets("datenOutput").Range("e28").Value
With Fs
.LookIn = "F:\MV\" & inp1xx
.SearchSubFolders = True
.FileName = "*.*" 'alle
If .Execute > 0 Then
MsgBox "Ich habe " & .FoundFiles.Count & " Dateien gefunden"
Dim iMaxx
iMaxx = Cells(Rows.Count, 1).End(xlUp).Row
For I = 1 To .FoundFiles.Count
Worksheets("outputFiles").Cells(I, 1).Value = .FoundFiles(I)
Next I
Else
MsgBox "Es wurden keine Dateien gefunden"
End If
End With
'sortieren und in der ListBox auf frmFiles anzeigen lassen
Sheets("outputFiles").Select
Cells.Select
Selection.Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("a1").Select
'sortieren ende
frmFiles.Show
End 

Sub
Viele Grüße aus Hamburg
Ray