>>264 普通は汎用モジュールを使うが自宅にないので、それっぽく再現したもの

Function FileFilter(folder As String, ext As String, Optional ret As Collection) As Collection
Dim fso As FileSystemObject
Dim fil As File
Dim fol As folder

Set fso = New FileSystemObject
If ret Is Nothing Then Set ret = New Collection

For Each fil In fso.GetFolder(folder).Files
If fil.Name Like "*" & ext Then
ret.Add fil.Path
End If
Next

For Each fol In fso.GetFolder(folder).SubFolders
Call FileFilter(fol.Path, ext, ret)
Next

Set FileFilter = ret
End Function