property serverPath : "nicht bestimmt" 
 
global inter0 
global inter1 
global inter2 
global inter3 
global repro0 
 
-- der 'open handler', welcher auf das Fallenlassen von Objekten reagiert 
on open allObjects 
 if serverPath is "nicht bestimmt" then 
  set serverPath to getServer() 
 else 
  try 
   alias serverPath 
  on error 
   set serverPath to getServer() 
  end try 
 end if 
  
 -- Wiederholschleife, welche alle gedroppten Objekte zum Handler 'processObject' schickt 
 repeat with aObject in allObjects 
  processObject(aObject) 
 end repeat 
 activate 
 display dialog "Fertig." buttons "OK" default button 1 with icon 1 giving up after 59 
end open 
 
-- im folgenden Handler wird festgestellt, ob das Objekt ein Ordner oder eine Datei ist 
-- bei Ordnern wird eine Liste des Inhalts erstellt und die Elemente rekursiv behandelt  
-- (d.h. zum aktuellen Handler geschickt) 
-- Dateien werden zum Handler 'processFile' gesandt 
on processObject(aObject) 
 -- der Test stellt den Wert der Variable fest und die entsprechende Aktion wird ausgelöst 
 if (aObject as Unicode text) ends with ":" then 
  -- die Liste der Objekte wird erstellt (ohne unsichtbare Dateien)  
  set contentsList to list folder aObject without invisibles 
  -- dies ist das rekursive Teil: die Wiederholschleife schickt alle Objekte zum Handler,  
  -- in welchem sie sich selbst befindet  
  repeat with anItem in contentsList 
   set objPath to ((aObject as Unicode text) & anItem) 
   processObject(objPath as alias) 
  end repeat 
  -- wenn das Objekt eine Datei ist, dann wird der Pfad dem Handler 'processFile' übergeben  
 else 
  processFile(aObject as Unicode text) 
 end if 
end processObject 
 
-- in diesem Handler werden die Dateien behandelt 
on processFile(aFile) 
 -- der Name der aktuellen Datei wird festgestellt 
 set AppleScript's text item delimiters to {":"} 
 set curName to (text item -1 of aFile) 
 set AppleScript's text item delimiters to {""} 
 set totChars to count of curName 
  
 -- ... den Stamm-Namen speichern ... 
 set baseName to (text 1 thru 5 of curName) 
  
 -- den Basis-Ordner-Namen feststellen 
 set nameOne to character 1 of baseName 
  
 -- den Namen der zweiten Ebene ausziehen 
 set nameThr to text 1 thru 3 of baseName 
  
 -- alles an den Handler senden, welcher die Struktur betreut 
 makeFolders(nameOne, nameThr, baseName) 
  
 -- schliesslich das Speichern der Dateien auslösen 
 saveFiles(aFile) 
end processFile 
 
on getServer() 
 set serverPath to (choose folder with prompt ¬ 
  "Den Zielordner für die Ordner-Struktur wählen") as Unicode text 
 return serverPath 
end getServer 

on makeFolders(nameOne, nameThr, baseName) 
 set folder1 to serverPath & nameOne 
 set folder2 to folder1 & ":" & nameThr 
 set folder3 to folder2 & ":" & baseName 
 set inter0 to folder3 & ":" & "Internet" 
 set inter1 to inter0 & ":" & "gross" 
 set inter2 to inter0 & ":" & "mittel" 
 set inter3 to inter0 & ":" & "klein" 
 set repro0 to folder3 & ":" & "Repro" 
 try 
  folder1 as alias 
 on error 
  tell application "Finder" to make new folder at folder serverPath ¬ 
   with properties {name:nameOne} 
 end try 
 try 
  folder2 as alias 
 on error 
  tell application "Finder" to make new folder at folder folder1 ¬ 
   with properties {name:nameThr} 
 end try 
 try 
  folder3 as alias 
 on error 
  tell application "Finder" to make new folder at folder folder2 ¬ 
   with properties {name:baseName} 
 end try 
 try 
  inter0 as alias 
 on error 
  tell application "Finder" to make new folder at folder folder3 ¬ 
   with properties {name:"Internet"} 
 end try 
 try 
  inter1 as alias 
 on error 
  tell application "Finder" to make new folder at folder inter0 ¬ 
   with properties {name:"gross"} 
 end try 
 try 
  inter2 as alias 
 on error 
  tell application "Finder" to make new folder at folder inter0 ¬ 
   with properties {name:"mittel"} 
 end try 
 try 
  inter3 as alias 
 on error 
  tell application "Finder" to make new folder at folder inter0 ¬ 
   with properties {name:"klein"} 
 end try 
 try 
  repro0 as alias 
 on error 
  tell application "Finder" to make new folder at folder folder3 ¬ 
   with properties {name:"Repro"} 
 end try 
end makeFolders 
 
on saveFiles(aFile) 
 tell application "Adobe Photoshop CS2" 
  activate 
  set jpgOptions to {class:JPEG save options, format options:optimized, quality:10} 
   
  -- Internet, 65 px Breite 
  try 
   set display dialogs to never 
   open file aFile showing dialogs never 
   set docRef to current document 
   set docName to name of docRef 
   set docBaseName to (docName as string) 
   tell docRef 
    change mode to RGB 
    resize image width 65 as pixels resample method bicubic sharper 
   end tell 
   set newFileName to inter0 & ":" & docBaseName 
   save docRef in file newFileName as JPEG with options jpgOptions ¬ 
    appending lowercase extension with copying 
   close document 1 saving no 
  on error 
   set display dialogs to always 
   try 
    close document 1 saving no 
   end try 
  end try 
   
  -- Internet, 450 px Breite (gross) 
  try 
   set display dialogs to never 
   open file aFile showing dialogs never 
   set docRef to current document 
   set docName to name of docRef 
   set docBaseName to (docName as string) 
   tell docRef 
    change mode to RGB 
    resize image width 450 as pixels resample method bicubic sharper 
   end tell 
   set newFileName to inter1 & ":" & docBaseName 
   save docRef in file newFileName as JPEG with options jpgOptions ¬ 
    appending lowercase extension with copying 
   close document 1 saving no 
  on error 
   set display dialogs to always 
   try 
    close document 1 saving no 
   end try 
  end try 
   
  -- Internet, 225 px Breite (mittel) 
  try 
   set display dialogs to never 
   open file aFile showing dialogs never 
   set docRef to current document 
   set docName to name of docRef 
   set docBaseName to (docName as string) 
   tell docRef 
    change mode to RGB 
    resize image width 225 as pixels resample method bicubic sharper 
   end tell 
   set newFileName to inter2 & ":" & docBaseName 
   save docRef in file newFileName as JPEG with options jpgOptions ¬ 
    appending lowercase extension with copying 
   close document 1 saving no 
  on error 
   set display dialogs to always 
   try 
    close document 1 saving no 
   end try 
  end try 
   
  -- Internet, 50 px Breite (klein) 
  try 
   set display dialogs to never 
   open file aFile showing dialogs never 
   set docRef to current document 
   set docName to name of docRef 
   set docBaseName to (docName as string) 
   tell docRef 
    change mode to RGB 
    resize image width 50 as pixels resample method bicubic sharper 
   end tell 
   set newFileName to inter3 & ":" & docBaseName 
   save docRef in file newFileName as JPEG with options jpgOptions ¬ 
    appending lowercase extension with copying 
   close document 1 saving no 
  on error 
   set display dialogs to always 
   try 
    close document 1 saving no 
   end try 
  end try 
   
  -- Repro, Originalgrösse, 72ppi 
  try 
   set display dialogs to never 
   open file aFile showing dialogs never 
   set docRef to current document 
   set docName to name of docRef 
   set docBaseName to (docName as string) 
   tell docRef 
    change mode to RGB 
   end tell 
   set newFileName to repro0 & ":" & docBaseName 
   save docRef in file newFileName as JPEG with options jpgOptions ¬ 
    appending lowercase extension with copying 
   close document 1 saving no 
  on error 
   set display dialogs to always 
   try 
    close document 1 saving no 
   end try 
  end try 
   
  set display dialogs to always 
 end tell 
end saveFiles 

property serverPath : "nicht bestimmt" 
 
global inter0 
global inter1 
global inter2 
global inter3 
global repro0 
 
-- der 'open handler', welcher auf das Fallenlassen von Objekten reagiert 
on open allObjects 
    if serverPath is "nicht bestimmt" then 
        set serverPath to getServer() 
    else 
        try 
            alias serverPath 
        on error 
            set serverPath to getServer() 
        end try 
    end if 
     
    -- Wiederholschleife, welche alle gedroppten Objekte zum Handler 'processObject' schickt 
    repeat with aObject in allObjects 
        processObject(aObject) 
    end repeat 
    activate 
    display dialog "Fertig." buttons "OK" default button 1 with icon 1 giving up after 59 
end open 
 
-- im folgenden Handler wird festgestellt, ob das Objekt ein Ordner oder eine Datei ist 
-- bei Ordnern wird eine Liste des Inhalts erstellt und die Elemente rekursiv behandelt  
-- (d.h. zum aktuellen Handler geschickt) 
-- Dateien werden zum Handler 'processFile' gesandt 
on processObject(aObject) 
    -- der Test stellt den Wert der Variable fest und die entsprechende Aktion wird ausgelöst 
    if (aObject as Unicode text) ends with ":" then 
        -- die Liste der Objekte wird erstellt (ohne unsichtbare Dateien)  
        set contentsList to list folder aObject without invisibles 
        -- dies ist das rekursive Teil: die Wiederholschleife schickt alle Objekte zum Handler,  
        -- in welchem sie sich selbst befindet  
        repeat with anItem in contentsList 
            set objPath to ((aObject as Unicode text) & anItem) 
            processObject(objPath as alias) 
        end repeat 
        -- wenn das Objekt eine Datei ist, dann wird der Pfad dem Handler 'processFile' übergeben     
    else 
        processFile(aObject as Unicode text) 
    end if 
end processObject 
 
-- in diesem Handler werden die Dateien behandelt 
on processFile(aFile) 
    -- der Name der aktuellen Datei wird festgestellt 
    set AppleScript's text item delimiters to {":"} 
    set curName to (text item -1 of aFile) 
    set AppleScript's text item delimiters to {""} 
    set totChars to count of curName 
     
    -- ... die Artikelnummer speichern ... 
    set baseName to (text 1 thru 5 of curName) 
     
    -- den Basis-Ordner-Namen feststellen 
    set nameOne to character 1 of baseName 
     
    -- den Namen der zweiten Ebene ausziehen 
    set nameThr to text 1 thru 3 of baseName 
     
    -- alles an den Handler senden, welcher die Struktur betreut 
    makeFolders(nameOne, nameThr, baseName) 
     
    -- schliesslich das Speichern der Dateien auslösen 
    saveFiles(aFile) 
end processFile 
 
on getServer() 
    set serverPath to (choose folder with prompt ¬ 
        "Den Zielordner für die Ordner-Struktur wählen") as Unicode text 
    return serverPath 
end getServer 
 
on makeFolders(nameOne, nameThr, baseName) 
    set folder1 to serverPath & nameOne 
    set folder2 to folder1 & ":" & nameThr 
    set folder3 to folder2 & ":" & baseName 
    set inter0 to folder3 & ":" & "Internet" 
    set inter1 to inter0 & ":" & "gross" 
    set inter2 to inter0 & ":" & "mittel" 
    set inter3 to inter0 & ":" & "klein" 
    set repro0 to folder3 & ":" & "Repro" 
    try 
        folder1 as alias 
    on error 
        tell application "Finder" to make new folder at folder serverPath with properties {name:nameOne} 
    end try 
    try 
        folder2 as alias 
    on error 
        tell application "Finder" to make new folder at folder folder1 with properties {name:nameThr} 
    end try 
    try 
        folder3 as alias 
    on error 
        tell application "Finder" to make new folder at folder folder2 with properties {name:baseName} 
    end try 
    try 
        inter0 as alias 
    on error 
        tell application "Finder" to make new folder at folder folder3 with properties {name:"Internet"} 
    end try 
    try 
        inter1 as alias 
    on error 
        tell application "Finder" to make new folder at folder inter0 with properties {name:"gross"} 
    end try 
    try 
        inter2 as alias 
    on error 
        tell application "Finder" to make new folder at folder inter0 with properties {name:"mittel"} 
    end try 
    try 
        inter3 as alias 
    on error 
        tell application "Finder" to make new folder at folder inter0 with properties {name:"klein"} 
    end try 
    try 
        repro0 as alias 
    on error 
        tell application "Finder" to make new folder at folder folder3 with properties {name:"Repro"} 
    end try 
end makeFolders