Help on this code please

T

Tom

Can someone tell me why this won't find .zip files? It finds EVERY other
types, including some program specific files with non-Microsoft extentions. -
the only ones it won't find are zip files.

Sub Find()
With Application.FileSearch
.NewSearch
.LookIn = "d:\Data"
.SearchSubFolders = True
.MatchTextExactly = False
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
MsgBox "There were " & .FoundFiles.Count & " file(s) found."
For i = 1 To .FoundFiles.Count
Cells(i, 1).Value = .FoundFiles(i)
Cells(i, 2).Value = FileDateTime(.FoundFiles(i))
Cells(i, 3).Value = FileLen(.FoundFiles(i))
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub

Thanks!
 
M

Mike H

Tom,

I beleive I read somewhere that XP views .zip files as folders so this code
won't return them. Sorry I can't remember the answer.

Mike
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top