Help on this code please
 

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!

Help on this code please
 

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

"Tom" wrote:

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!