Sub cannot run (Error 5)

[Max]

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

 

[Patrick Molloy]

as it is, the code works fine for me. Try looking in another drive - D is
often used for CD/DVD

 

[Max]

Thanks, Patrick, but still no go here, I'm afraid. Tried putting in other
valid drives / paths, all attempts failed to run. Same error msg, same debug
line.

Even tried changing the debug line to say,:
..FileName = "*.bmp"
but it still failed to clear this line

 

[Patrick Molloy]

try

.FileName = "*"

Thanks, Patrick, but still no go here, I'm afraid. Tried putting in other
valid drives / paths, all attempts failed to run. Same error msg, same debug
line.

Even tried changing the debug line to say,:
..FileName = "*.bmp"
but it still failed to clear this line
--
Rgds
Max
xl 97

 

[Max]

Tried that, but it still hung at the same line

 

[kounoike]

your code works with no problem for me.
How about opening new workbook, and copy your posted code to the new
workbook, and then try it on the new workbook?

keizi

 

[Max]

Thanks, Keizi. Tried as you suggested, but it still fails, same error, same
line.

 

[Dave Patrick]

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

:
| 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
| --
|
|

 

[Max]

I'm stumped??, just tested, the sub runs ok on my home PC: Excel 97, Win 98.
But it continues to fail in the other, earlier environ: Excel 97, Win XP
Is there anything else I can try to make it work over there ?

 

[Max]

As responsed further in the other branch ... just tested, the sub runs ok on
my home PC: Excel 97, Win 98. But it continues to fail in the other, earlier
environ: Excel 97, Win XP. Is there anything else I can try to make it work
over there ?

 

[Max]

Dave, thanks for insights. Just tested, the sub runs ok on my home PC: Excel
97, Win 98. But it continues to fail in the other, earlier environ: Excel
97, Win XP

Are you logged on as local administrator?

How do I check this in Win XP ?
--
Rgds
Max
xl 97
---
Singapore, GMT+8
xdemechanik
http://savefile.com/projects/236895
--

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

 

[Dave Patrick]

Start|Run and type

control userpasswords2

then properties for your user account.

--

Regards,

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

:
| Dave, thanks for insights. Just tested, the sub runs ok on my home PC:
Excel
| 97, Win 98. But it continues to fail in the other, earlier environ: Excel
| 97, Win XP
|
| > Are you logged on as local administrator?
| How do I check this in Win XP ?
| --
| Rgds
| Max
| xl 97
| ---
| Singapore, GMT+8
| xdemechanik
| http://savefile.com/projects/236895
| --

 

[Max]

Thanks, I'll have to try this at the office m/c tomorrow.

 

[Dave Patrick]

You're welcome.

--

Regards,

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

:
| Thanks, I'll have to try this at the office m/c tomorrow.
| --
| Rgds
| Max
| xl 97
| ---
| Singapore, GMT+8
| xdemechanik
| http://savefile.com/projects/236895

 

[Max]

Ok, these were my user properties listed:
Debugger Users; Tivoli_Admin_Privileges; Administrators; Users
(I don't really know how to intrepret the properties <g>)

The sub still stubbornly refuses to run ..

 

[Dave Patrick]

Check that you can manually traverse the folders in question with your
logon. Try some other directories possibly with SearchFolders = False

--

Regards,

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

:
| Ok, these were my user properties listed:
| Debugger Users; Tivoli_Admin_Privileges; Administrators; Users
| (I don't really know how to intrepret the properties <g>)
|
| The sub still stubbornly refuses to run ..
| --
| Rgds
| Max
| xl 97
| ---
| Singapore, GMT+8
| xdemechanik
| http://savefile.com/projects/236895
| --
|
|

 

[Max]

Check that you can manually traverse the folders
in question with your logon.

Confirmed, no problem. I can see the folder contents.

Try some other directories
possibly with SearchFolders = False

Tried other directories, and with the suggested setting
but it still hangs at the same line:
..FileName = "*.*"

 

[NickHK]

Max,
People always seem to get unexpected behaviour with .Filesearch, across
versions of Windows and Office.
Dir( ) produces relaible results.

NickHK

 

[Max]

Thanks, Nick

Dir( ) produces reliable results.

How could the sub be amended to make use of the above ?

 

[NickHK]

Max,
VBA Help has examples.

NickHK

Thanks, Nick
How could the sub be amended to make use of the above ?
--
Rgds
Max
xl 97