Batch Change File Extensions With Applescript

I remember a day when Mac OS and every application running in it didn't give a rat's ass about file extensions. iPhoto has issues importing files that don't have extensions on them. It looks like the finder knows what the file types are but iPhoto just chokes on them (at least for avi's). Here is a simple Applescript to add or change file extensions of all files in a directory:

set thePath to choose folder with prompt "Select folder to rename files in:"
set ext to text returned of (display dialog "Extension to Replace:" default answer "")
set extNew to text returned of (display dialog "Replace With:" default answer "")

tell application "Finder" to set name extension of (files of thePath whose name extension is ext) to extNew

Cut and paste in script editor and hit run. Who needs terminal.app anyways?

Just kidding!