[b]property dateiExt : {"tif", "eps"} 
 
 
[b]tell application "Adobe Photoshop CS" 
   [b]tell application "Finder" 
      [b]set Quellordner [b]to choose folder with prompt "Quellordner wählen" 
      [b]set dateiListen [b]to ([b]every file [b]of folder Quellordner [b]whose name extension [b]is [b]in dateiExt) [b]as alias list 
   [b]end [b]tell 
   [b]repeat [b]with einDatei [b]in dateiListen 
      open einDatei showing dialogs never 
      do action "internet" from "Standardaktionen" 
   [b]end [b]repeat 
[b]end [b]tell 
  

[b]property dateiExt : {"tif", "eps"} 
 
 
[b]tell application "Adobe Photoshop CS" 
   [b]tell application "Finder" 
      [b]set Quellordner [b]to choose folder with prompt "Quellordner wählen" 
      [b]set dateiListen [b]to ([b]every file [b]of folder Quellordner ¬ 
         [b]whose name extension [b]is [b]in dateiExt) [b]as alias list 
   [b]end [b]tell 
   [b]repeat [b]with einDatei [b]in dateiListen 
      open einDatei showing dialogs never 
      [b]tell current document 
         [b]set Dateiname [b]to name 
         [b]my dateiCheck(Dateiname, Quellordner) 
         do action "Internet" from "Standardaktionen" 
      [b]end [b]tell 
   [b]end [b]repeat 
[b]end [b]tell 
 
[b]on dateiCheck(Dateiname, Quellordner) 
   --[i]Danke fuer den Shell an Thomas Kaiser  
   [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 neueName [b]to keinExtension & ".jpg" 
   log {neueName:neueName, Quellordner:Quellordner} 
   [b]tell application "Finder" 
      move ([b]every file [b]of folder Quellordner [b]whose name [b]is neueName) to [b]the trash 
   [b]end [b]tell 
[b]end dateiCheck