(* 
 * Enrico Franchi ©2005
 * This is Public Domain
 *)

tell application "Finder"
	set mySel to selection
	display dialog Â
		"Rename file with:" default answer Â
		"" buttons {"OK", "Cancel"} Â
		default button "OK"
	set basename to text returned of result
	if basename is equal to "" then
		return
	end if
	set j to 0
	repeat with i in mySel
		set ext to name extension of i
		if ext is not equal to "" then
			set ext to "." & ext
		end if
		if j is greater than 0 then
			set defname to (basename & j as text) & ext
		else
			set defname to basename & ext
		end if
		set j to j + 1
		
		set name of i to defname
	end repeat
end tell