Application.Filesearch

Hi there,
I had written a macro in Excel 2003 which searches a directory and lists all of the files in that directory, of type *.ssn and writes this list to a worksheet. To do this i used the Application.Filesearch functionality. Having upgraded to Excel 2007 this no longer works and it would appear the Filesearch functionality has been removed. The code i used is below - could you suggest how i can get this working in Excel 2007 please. Note I no longer need it to be able to work in Excel 2003.
Regards,
Jonathan

Sub ListAllFiles()


Dim fs As FileSearch
Dim ws As Worksheet
Dim i As Long


Set fs = Application.FileSearch


'Clear the current File List
Sheets("MISC").Range("AL49:AL128").ClearContents


'Create a new File List - all *.ssn files in the strDataLocation data directory
With fs

.SearchSubFolders = False ' set to true if you want sub-folders included
'.FileType = msoFileTypeAllFiles 'can modify to just Excel files eg with msoFileTypeExcelWorkbooks
.Filename = "*.ssn" 'Can use wildcards for file types.
.LookIn = strDataLocation 'modify this to where you want to serach

If .Execute > 0 Then

Set ws = Worksheets("MISC")

For i = 1 To .FoundFiles.Count

ws.Cells(i + 48, 38) = Mid$(.FoundFiles(i), InStrRev(.FoundFiles(i), "\") + 1)

Next

Else

MsgBox "No files found"

End If

End With


End Sub