copy files from subfolders

I am currently using this code to find and copy selected files from the folder the workbook is saved in to a new folder:

If Dir(ThisWorkbook.path & "\" & filename) <> "" Then
              FileCopy ThisWorkbook.path & "\" & filename, newpath & filename
Endif

Can this be extended to search for the file in all subfolders?

thanks Jaslake, I did some searching and found some similar recursive loops, I'm currently working on adapting them, thanks for the offer of help, I'll certainly come back if I get stuck