Rename files with a macro

I'm desperate to find/create a macro that will allow the user to specify a path to a folder that contains files... and then give a Find/replace form. This is the code I currently have, however this no longer works in 2007/2010 as Application.FileSearch is no longer an object.

User Forms within the attachment.

Book2.xlsm

Please Login or Register  to view this content.

this is an example to show the files

Please Login or Register  to view this content.