Apple

Fri, 08 Jan 2016 16:43:33 +1100
I have a folder with 450 subfolders each containing one or more PNG files:
I want to rename the PNG files by adding the subfolder (plus a dash) to the file name

An example for a script to rename the files dropped on an applet or the files in a chosen folder is as follows.

______________________________________________________________________

-------------------------------------------------------------------------------------------

# REQUIRES the Satimage.osax!!!!

# http://www.satimage.fr/software/en/downloads/downloads_companion_osaxen.html

-------------------------------------------------------------------------------------------

set srcFolder to alias ((path to home folder as text) & "test_directory:png.image.test:")

set fileList to list files srcFolder as alias of extension {"png", "PNG"}

tell application "Finder"

repeat with theFile in fileList

set parentFolderName to name of theFile's parent

set theFileName to name of theFile

set newFileName to cng("^(.+)(\\.png)$", ("\\1" & " - " & parentFolderName & "\\2"), theFileName) of me

set name of theFile to newFileName

end repeat

end tell

-------------------------------------------------------------------------------------------

--» HANDLERS

-------------------------------------------------------------------------------------------

on cng(_find, _replace, _data)

change _find into _replace in _data with regexp without case sensitive

end cng

-------------------------------------------------------------------------------------------

References:
	>Re: Renamer script (CafeTran Wiki) (From: Michael Schwarz <email@hidden>)