set theFolder to choose folder

tell application "Finder"
set theFolderName to name of theFolder
set N to count files of folder theFolder
if N < 3 then return beep 2
end tell

display dialog "Rename the " & N & " files of folder “" & theFolderName & "” in reverse order?" buttons {"Cancel", "OK"} default button 2 with icon 1

tell application "Finder"
set theNames to name of files of theFolder
set theNewNames to reverse of theNames
set {theFirstName, theExtension} to {name, name extension} of file 1 of theFolder
tell me to set L1 to (offset of "." & theExtension in theFirstName) - 1
set theFiles to files (N div 2 + 1) through N of theFolder as alias list
repeat with thisFile in theFiles
get name of thisFile
set theName to text 1 through L1 of result
set name of thisFile to theName & "¿." & theExtension
end repeat
set theFiles to files of theFolder as alias list
set k to 0
repeat with thisFile in theFiles
set k to k + 1
set name of thisFile to item k of theNewNames
end repeat
end tell

tell me to activate
display dialog "The " & N & " files of folder “" & theFolderName & "” have been renamed in reverse order." buttons {"OK"} default button 1 with icon 1