Change Name of File with todays Date

[tcheck]

We are getting in files from a vendor that come in with today's date and different extensions and prefixes such as BA0003.20121217.pdf or MYLOOKUP.20121217.psv where the only constant is the date, there are over 100 files that I need to change the date part to today's date. I would like to find all the data before the first period and all the data after the last period and replace the date part with todays date.

[June7]

Left("BA0003.20121217.pdf",InStr("BA0003.20121217. pdf",".")) & Format(Date(),"yyyymmdd") & Right("BA0003.20121217.pdf",4)