FileSearch.Execute with ZIP files

[FBxiii]

Hi.

I have a piece of code to search for the specified file type within a folder.

This works fine for all File types, except ZIP files. Is there anyway of
getting it to recognise ZIP files?

Cheers,
Steve.

Here is a code snippet...

With Application.FileSearch
.NewSearch
.LookIn = strBackupDocsFilePath$
.SearchSubFolders = False
.Filename = "*" & strFileName$ & "*." & strExt$
'.TextOrProperty = strshipper$
.MatchAllWordForms = False
' .FileType = strExt$
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count

 

[Alex Dybenko]

Hi,
perhaps zip is considered as "compressed folder" by FileSearch object, try
to use API:
http://www.mvps.org/access/api/api0006.htm

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com

 

[FBxiii]

Thanks for that. I couldn't get either method to work though.

I have found I can use Dir() but the app wasn't one I developed so I am
passing it back to the person who did as it will be a major change.

Cheers anyway,
Steve.