Sub Macro3()
x = Shell("cmd.exe /c dir /Tw c:\temp\*.xls c:\temp.csv", 1)
Workbooks.Open Filename:="C:\temp.csv"
End Sub

This will get you the file and dates. You need to delete any extraneous
records.
--
Gary''s Student - gsnu200756


"Manuelauch" wrote:

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