[b]tell application "Finder" 
   [b]set ordner [b]to choose folder 
   [b]set dateiListe [b]to files [b]of ordner 
   [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 keinExtension [b]to text item 1 [b]of (dateiName [b]as text) 
         [b]set name [b]of einDatei [b]to keinExtension & "_cmyk." & text item 2 [b]of (dateiName [b]as text) 
      [b]on [b]error 
         [b]set name [b]of einDatei [b]to dateiName & "_cmyk" 
      [b]end [b]try 
      [b]set AppleScript's text item delimiters [b]to altDelims 
   [b]end [b]repeat 
[b]end [b]tell