Hi Thomas,
vielenk Dank für Deine Hinweis (ich habe sowas leider noch nicht im Blut :o( ) und für die Shellscript damit wird es etwas kürze + schneller!!
Code [b]on open dateiListe [b]tell application "Finder" [b]set zusatzText [b]to (text returned [b]of (display dialog "Geben Sie die gewünschte zusatz Text ein" default answer "")) [b]repeat [b]with einDatei [b]in dateiListe [b]set {altDelims , AppleScript 's text item delimiters } [b]to {AppleScript 's text item delimiters , "."} [b]set dateiName [b]to name [b]of einDatei [b]try [b]set myScript [b]to ("echo \"" & dateiName [b]as text ) & "\" | sed 's/\\.[^.]\\{0,5\\}$//g'" [b]set keinExtension [b]to (do shell script myScript ) [b]set comment [b]of einDatei [b]to keinExtension & " " & zusatzText [b]on [b]error [b]set comment [b]of einDatei [b]to dateiName & " " & zusatzText [b]end [b]try [b]set AppleScript 's text item delimiters [b]to altDelims [b]end [b]repeat [b]end [b]tell [b]end open Ohne Deine Shell hätte ich so lösen müssen:
Code [b]on open dateiListe [b]tell application "Finder" [b]set zusatzText [b]to (text returned [b]of (display dialog "Geben Sie die gewünschte zusatz Text ein" default answer "")) [b]repeat [b]with einDatei [b]in dateiListe [b]set {altDelims , AppleScript 's text item delimiters } [b]to {AppleScript 's text item delimiters , "."} [b]set dateiName [b]to name [b]of einDatei [b]try [b]if (count text items [b]of dateiName ) <= 2 [b]then [b]set keinExtension [b]to text item 1 [b]of (dateiName [b]as text ) [b]set comment [b]of einDatei [b]to keinExtension & " " & zusatzText [b]else [b]set keinExtension [b]to text items 1 [b]thru ((count text items [b]of dateiName ) - 1) [b]of dateiName [b]set comment [b]of einDatei [b]to (keinExtension [b]as text ) & " " & zusatzText [b]end [b]if [b]on [b]error [b]set comment [b]of einDatei [b]to dateiName & " " & zusatzText [b]end [b]try [b]set AppleScript 's text item delimiters [b]to altDelims [b]end [b]repeat [b]end [b]tell [b]end open