How to alter 'add to file names' script?

Question

I'm working on some stuff that I need to get done today, and it dawned on me that I could save a lot of time if I had a certain script perform a simple task for me. Unfortunately I haven't been able to get one to work right. I just want to be able to add the same thing onto the end of a file name... For instance, 01.jpg would become 01x.jpg, 02.jpg becomes 02x.jpg and so on. The basic 'Add to File Names' script will almost work, but it adds to the front of the name, not the back. Does anyone know how I could alter the lines in that script to get it to do what I want?
Thanks for any help,
Dave

Answer 1

01. Under 'Alternative 01:', the line ...
No error checking for folders is included. Such is an exercise for the student.
... should have been ...
--No error checking for folders is included. Such is an exercise for the student.
02. The error message ...
"System Events got an Error: NSCannotCreateScriptCommandError".
Hmmm, those replying are using MacOS X 10.4.x, and you are using MacOS X 10.2.x. Others, with Macs running MacOS X 10.2.x and using AppleScript code from MacOS X 10.3.x and later, do at times experience 'NSCannotCreateScriptCommandError' error messages.
In the code below, 'System Events' was replaced with 'Finder'. Some additional editing was performed, where required.
Alternative 01:
property tAddition : "x" -- The charcter or string to append to the files' name.
tell application "Finder"
set tSelection to selection
--No error checking for folders is included. Such is an exercise for the student.
repeat with i in tSelection -- Cycle through the provided files.
set {displayed_name, name_Extension} to {displayed name of (i as alias), name extension of (i as alias)}
if ((displayed_name ends with name_Extension) and ((count name_Extension) > 0)) then
-- Handle file names which include a name extension.
set (name of i) to ((get (characters 1 through ((count displayed_name) - (count name_Extension) - 1) of displayed_name) as string) & tAddition & "." & name_Extension)
else
set (name of i) to (displayed_name & tAddition) -- Handle file names without a name extension.
end if
end repeat
end tell
Save the AppleScript code as a script.
Move file (or a copy or alias of the file) to the '~/Library/Scripts/' folder.
Select files to be processed, in 'Finder'.
Select the script, via the 'Script menu'.
Alternative 02:
property tAddition : "x" -- The charcter or string to append to the files' name.
on run {} -- User double-click on the applet.
display dialog "Drag file(s) onto applet for processing."
end run
on open selected_Items -- User dragged items onto applet.
my handleitems(selectedItems) -- Processed items dragged onto applet.
end open
on handleitems(localItems)
-- No error checking for folders is included. Such is an exercise for the student.
tell application "Finder"
repeat with i in local_Items -- Cycle through the provided files.
set {displayed_name, name_Extension} to {displayed name of i, name extension of i}
if ((displayed_name ends with name_Extension) and ((count name_Extension) > 0)) then
-- Handle file names which include a name extension.
set (name of i) to ((get (characters 1 through ((count displayed_name) - (count name_Extension) - 1) of displayed_name) as string) & tAddition & "." & name_Extension)
else
set (name of i) to (displayed_name & tAddition) -- Handle file names without a name extension.
end if
end repeat
end tell
end handle_items
Save the AppleScript code as an applet (application).
Drag files to be processed, onto the applet, in 'Finder'.