VB Forum / COM / October 2004

This sub will accept your root_folder [in] and an array [in,out]
and will recurse for all files. Change the *.* to *.tiff to filter
for your images. It's very quick.

Public Sub GetDir(ByVal path As String, ByRef Arr As Variant)

Dim sfile As String
Dim sFold() As String
Dim nK As Long
Const sRoutine As String = "GetDir"
On Error GoTo err_GetDir
sfile = Dir(path & "*.*", vbDirectory)  '<-- add filter here
'
nK = 0

Do While Len(sfile) > 0
 'Debug.Print "sfile=", sfile
 If Left$(sfile, 1) Like ("[.%]") Then GoTo DO_NEXT

 If (GetAttr(path & sfile) And vbDirectory) > 0 Then

   'Debug.Print path & sfile & "\"
   ReDim Preserve sFold(0 To nK)
   sFold(nK) = path & sfile & "\"
   nK = nK + 1
'    GetDir path & sfile & "\", Arr
'    Debug.Print "succesfully recur"
 Else
   ReDim Preserve Arr(0 To nJ)
  ' Debug.Print sfile
   Arr(nJ) = LCase(sfile)
   nJ = nJ + 1
 End If
DO_NEXT:
 sfile = Dir(, vbDirectory)
Loop

' handle sub folders
If nK > 0 Then
 For nK = 0 To UBound(sFold)
   GetDir sFold(nK), Arr
 Next
End If

Exit Sub
err_GetDir:
 Debug.Print sfile, Err.Number, Err.Description
 'Err.Raise Err.Number, "CSort" & "." & sRoutine, Err.Description
End Sub

hth,
tlviewer