【AppleScript】Finder上で複数個選択し、ファイルをそれぞれ同じ階層に文字列を追加して複製するスクリプト

下記の下線部分を変更、追加すればいけると思います。

変更：1箇所　①

追加：2行　②③

tell application "Finder"

activate

display dialog "追加する文字を入力" default answer "-001" -- 追加する文字を指定

set NewName to text returned of the result as Unicode text -- 変更後のファイル名をNewNameに格納

set ①Allsel to get selection --選択ファイル

②repeat with sel in Allsel

set ObjInfo to info for sel as alias --選択ファイルの情報を取得

set FileName to name of ObjInfo as Unicode text --選択ファイルのファイル名をFileNameに格納

set FileNameChrList to every character of FileName --ファイル名の文字を分割

set tmpFileName to reverse of FileNameChrList as Unicode text -- ファイル名テキストの順番を逆にする

set c to offset of "." in tmpFileName -- ファイル名の"."がテキストの先頭から何番目にあるか

set preFix to reverse of (characters 1 thru c of tmpFileName) -- "."から最後までの文字を取り出す("."含めた拡張子)

set retFileName to reverse of (characters (c + 1) thru (length of tmpFileName) of tmpFileName) -- "."から最初までの文字を取り出す("."の前のファイル名)

set duplicatedFile to duplicate sel --選択ファイルを複製

set name of duplicatedFile to (retFileName as Unicode text) & (NewName as Unicode text) & (preFix as Unicode text) -- 複製したファイルを変更 

③end repeat

end tell

メインのロジックももう少し簡単にできます。

tell application "Finder"
	activate
	
	display dialog "追加する文字を入力" default answer "-001" -- 追加する文字を指定
	set AddName to text returned of the result as text
	
	set AllSel to selection
	repeat with Sel in AllSel
		set SelExt to Sel's name extension --拡張子
		set SelName to (Sel's name as text)'s items 1 thru -(((Sel's name extension as text)'s length) + 2) as text --ファイル名
		set duplicatedFile to duplicate Sel
		set name of duplicatedFile to (SelName & AddName & "." & SelExt) -- 複製したファイルを変更 
	end repeat
	
end tell

シェルスクリプトを使えばさらに簡単になるのですが、それは下記などでしらべてください。

ファイルパスからファイル名や拡張子を自由に取り出す - ザリガニが見ていた...。

私の場合もほとんどはネット上からサンプルコードを拝借していますよ。（笑）

ただ、それをコピペするだけではなく中身を解析して理解することが重要です。

そうすれば、だんだん自分でコードが書けるようになります。