Public Sub FolderSearch(targetDir As String, extension As String, recursive As Boolean)
Dim FSO As Object
Dim folder As Object, subFolder As Object, file As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set folder = FSO.GetFolder(targetDir)
If recursive = True Then
For Each subFolder In folder.SubFolders
Call FolderSearch(subFolder.Path, extension, recursive)
Next subFolder
End If
For Each file In folder.Files
If extension = "" Or file.Name Like extension Then
End If
Next file
Set folder = Nothing
Set FSO = Nothing
End Sub