Applescript to add numbers to end of folders names

Question

Hello,
I wrote a script that can rename files and add sequential numbers to them (below):
set theResult to display dialog "Please enter a name and a number separated by a space." default answer "enter image name here + space + 1" buttons {"Cancel", "OK"} default button 2 with icon 1
set theText to text returned of theResult
set theNumber to last word of theText
set theOffset to offset of theNumber in theText
set theName to text 1 through (theOffset - 2) of theText
set k to theNumber as integer
global theMaximumLength
tell application "Finder"
  set theFiles to files of front window
  set theMaximumLength to length of (k - 1 + (count theFiles) as text)
  repeat with thisFile in theFiles
  set theExtension to name extension of thisFile
  set theNumber to my addZeros(k as text)
  set the name of thisFile to theName & "_" & theNumber & "." & theExtension
  set k to k + 1
  end repeat
end tell
But I want to write a script that will JUST add and _1 to the end of multiple folders.  In other words, take a bunch of folders already created like
342392501
342392401
340766601
340766201
339898101
339828301
339171301
337245001
337086803
337086802
337086801
and add _1 to all of them.  BUT what would be even better would be a script that would duplicate each folder and ad an _1 to the original and then an _2 to the duplicate, and do that for all the folders in the finder.
Anyone?  Thanks so much!!!!

Answer 1

Use code such as the following:
set the_list to "80
81
82"
tell application "Finder"
set target_folder to (choose folder)
repeat with this_number in paragraphs of the_list
set this_folder to (make new folder in target_folder with properties {name:this_number})
set name of (duplicate this_folder) to name of this_folder & "_2"
set name of this_folder to name of this_folder & "_1"
end repeat
end tell
Or to save a step if the creation dates don't need to match exactly:
set the_list to "80
81
82"
tell application "Finder"
set target_folder to (choose folder)
repeat with this_number in paragraphs of the_list
set this_folder to (make new folder in target_folder with properties {name:this_number & "_1"})
set this_folder to (make new folder in target_folder with properties {name:this_number & "_2"})
end repeat
end tell
(110675)