Drilling down for zip files, how can I reach every subdirectory?

[Lokean]

Hi folks,

Here's what I have so far...

Dim fso, fol, subfol, fo, fls, fl, subfol2, subfol3
 
sSearchString = "C:\"
 
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fol = fso.getfolder("C:\")
    Set subfol = fol.subfolders
 
 
    For Each fo In subfol
        On Error GoTo Resumeit
       Set fls = fo.Files
 
       'Else
       For Each fl In fls
          If UCase(Right((fl.Name), 3)) = "ZIP" Then
            ' MsgBox fl.Name
          End If
        Next fl
 
Resumeit2:
    Next fo

This gets me down to one level below C:\, but I need to get to every subdirectory and pull out all the zip files that are floating around.

application.filesearch does not recognize .zip files as files, so that trick is out.

This is as close as I've come.

Can anyone help me drill down from here? Is there a better method?

Thanks in advance.

[Killer42]

I have tackled this exact problem of traversing folders in the past. The technique I came up with (based largely on someone else's example, I think) is a reentrant routine - that is, one which calls itself. I'll have a dig around for some source code later. but the general method was something like this (just pseudo-code)...

Sub ProcessFolder (fld as Folder)
 
  For each SubFolder in fld
    ProcessFolder SubFolder
  Next
 
  For each File in fld
    ProcessFile File
  Next
 
End Sub
 
Sub ProcessFile (fil as File)
 
  ' Do whatever you want with fil here.
 
End Sub

Note, when writing a routine which will call itself like this, where each iteration must be separate, it's important to avoid using Static variables (unless you really know you need them)