Are you logged on as local administrator? Code 5 generally = "Access is
denied" Also try another machine.

--

Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

"Max" wrote:
| 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
| --
|
|