Renaming files inside several folders

Great! As a bonus, here's a much better version of the script:

set theUserName to "JohnSmith"

set theNewFolderName to "Folder X"

set L to 17 -- the initial length of every file name (like “IMG_20150424_0001”) without its extension

tell application "Finder"

set theFolders to selection as alias list

if theFolders is {} then tell me to return beep 2

set {x01, y01, x02, y02} to get bounds of desktop'swindow

end tell

tell application "TextEdit" -- open a new document where to provide progress feedback

launch

activate

set theDocument to makenewdocumentat front

delay 0.25

set {x1, y1, x2, y2} to bounds of window 1

set bounds of window 1 to {(x02 - x2 + x1) / 2, y02 / 2, (x02 + x2 - x1) / 2, y02 / 2 + 200}

end tell

tell application "Finder"

with timeout of 3600 seconds-- one hour

set theFolders to sorttheFoldersbyname

set theContainer to container of item 1 of theFolders as alias

if not (existsfoldertheNewFolderName of theContainer) then

makenewfolderattheContainerwith properties {name:theNewFolderName}

else

my displayMessage("Deleting files of folder “" & theNewFolderName & "”.")

deleteitems of foldertheNewFolderName of theContainer-- start with an empty folder

end if

set N to 0

set P to L + 1

repeat with thisFolder in theFolders

set thisFolderName to name of thisFolder

if thisFolderName is not theNewFolderName then

set theFiles to (get files of thisFolder as alias list)

my displayMessage("Duplicating files of folder “" & thisFolderName & "”.")

set theNewFiles to duplicatetheFilestofoldertheNewFolderName of theContainer

my displayMessage("Renaming files of folder “" & thisFolderName & "”.")

repeat with thisFile in theNewFiles

set thisFileName to name of thisFile

set N to N + 1

if N < 10 then

set N to "000" & N

else if N < 100 then

set N to "00" & N

else if N < 1000 then

set N to "0" & N

end if

if (length of thisFileName) > L then -- name with extension

set thisNewFileName to "IMG_" & N & "_" & theUserName ¬

& textP through -1 of thisFileName

else -- name without extension

set thisNewFileName to "IMG_" & N & "_" & theUserName

end if

set name of thisFile to thisNewFileName

end repeat

end if

end repeat

end timeout

end tell

tell application "TextEdit" to closetheDocument without saving

on displayMessage(theMessage)

global theDocument

tell application "TextEdit"

activate

set theDocument'stext to return & theMessage

set size of theDocument'stext to 24

end tell

end displayMessage

Well… maybe “a much better version” was somewhat exaggerated… The new version adds just that: providing continuous feedback on progress. Which might be useful when you have many folders containing many big files, by telling you what the script is currently doing, for example "renaming files of folder 4” or “duplicating files of folder 5”.

Twitcheye wrote:

I would rather have some sort of an UI than a report… or both. Or, have it rename the files properly regardless of the length of original file names (so that I can use the script for files generated by various hardware/software combinations).

The new version also allows you to choose the length of the original file names at the very beginning of the script, by changing the value of L.