I was using these lines of codes in EXCEL 2003 to get files names and dates
in a folder, they do not woork in EXCEL 2007. Any new codes or modification I
can use

Set obFileSearch = Application.FileSearch
With obFileSearch
.LookIn = "C\:Temp\"
.Filename = "*.xls" '
'True, files were found
If .Execute 0 Then
'Enter file names in spreadsheet
For iCounter = 1 To .FoundFiles.Count
Cells(19 + iCounter, 7).Value = .FoundFiles(iCounter)
Cells(19 + iCounter, 8).Value =
FileDateTime(.FoundFiles(iCounter))
Next iCounter
End If
End With