FileSearch

[Mark]

Can anyone please tell me why the following code works fine in
Win98/Access97, but fails to recognize files with a ".zip" extension in
WinXP/Access2002/2000? It correctly lists the name of each ".txt" file in
the folder.

....................
With Application.FileSearch
..FileName = "*.*"
..LookIn = "C:\_PriorAuth"
..SearchSubFolders = False
..Execute
For Each varItem In .FoundFiles
Debug.Print varItem
Next varItem
End With
......................

Thank you,
Mark

[Allen Browne]

I'm not really sure how FileSearch works, because it's part of the Office
libary which doesn't work in the runtime anyway, but if it relies on the
Windows search, that was mutilated in Win 2000/XP so that it only handles
registered file extensions.

If that is the cause of the problem, you can address the issue like this:
1. At Start | Run, enter CIADV.MSC, and click Ok to start the Indexing
Service.

2. Check the box under:
Action | Properties | Generation | Index files with unknown extensions.

(Note that you do not have to turn the indexing service on.)

Dunno if that will solve your issue, Mark. Let us know how you go.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Mark" <cm*@mountain.net> wrote in message
news:60**************************@posting.google.c om...

Can anyone please tell me why the following code works fine in
Win98/Access97, but fails to recognize files with a ".zip" extension in
WinXP/Access2002/2000? It correctly lists the name of each ".txt" file in
the folder.

...................
With Application.FileSearch
.FileName = "*.*"
.LookIn = "C:\_PriorAuth"
.SearchSubFolders = False
.Execute
For Each varItem In .FoundFiles
Debug.Print varItem
Next varItem
End With
.....................

Thank you,
Mark