I'm trying to run the sub below (using Excel 97, Win XP),
but kept hitting:

Invalid procedure call or argument (Error 5)

Debug pointed at this line:
.FileName = "*.*"

The number of files in the folder: D:\Program Files\Erlang\CalcA
is less than 50

-------
Sub ListFiles02()
'Using FileSearch to list the files in a directory
Dim i As Integer
i = 1
With Application.FileSearch
.NewSearch
.LookIn = "D:\Program Files\Erlang\CalcA"
.FileName = "*.*"
.SearchSubFolders = True
'.SearchFolders = False
.Execute

For i = 1 To .FoundFiles.Count
Range("B" & i).Value = .FoundFiles(i)
Range("C" & i).Value = FileDateTime(.FoundFiles(i))
Range("D" & i).Value = FileLen(.FoundFiles(i))
Next
End With
End Sub
-------

Appreciate any insights. Thanks.

--
Rgds
Max
xl 97
---
Singapore, GMT+8
xdemechanik
http://savefile.com/projects/236895
--