property scriptPath : "" 
on run 
 showConfig() 
end run 
 
on showConfig() 
 if scriptPath is not "" then 
  try 
   scriptPath as alias 
   set dR to button returned of (display dialog ¬ 
    "Das aktuelle Ordneraktions-Script:  
" & scriptPath buttons {"Entfernen", "Ändern", "OK"} default button 3 with icon 1) 
   if dR = "Ändern" then 
    modConfig() 
   else if dR = "Entfernen" then 
    set scriptPath to "" 
   end if 
  on error 
   with timeout of 300 seconds 
    set dR to button returned of (display dialog ¬ 
     "Das aktuelle Ordneraktions-Script kann nicht gefunden werden." buttons ¬ 
     {"Abbruch", "Auswählen"} default button 2 with icon 2) 
    if dR = "Auswählen" then 
     set scriptPath to (choose file of type "osas" with prompt ¬ 
      "Ein Ordneraktions-Script wählen") as Unicode text 
    end if 
   end timeout 
  end try 
 else 
  set dR to button returned of (display dialog ¬ 
   "Es ist kein Ordneraktions-Script bekannt." buttons ¬ 
   {"Abbruch", "Auswählen"} default button 2 with icon 1) 
  if dR = "Auswählen" then 
   modConfig() 
  end if 
 end if 
end showConfig 
 
on modConfig() 
 with timeout of 300 seconds 
  set scriptPath to (choose file of type "osas" with prompt ¬ 
   "Ein Ordneraktions-Script wählen") as Unicode text 
 end timeout 
 showConfig() 
end modConfig 
 
on open droppedObject 
 set mainPath to item 1 of droppedObject as Unicode text 
 if mainPath ends with ":" then 
  if scriptPath is "" then 
   tell application "Finder" to activate 
   with timeout of 300 seconds 
    set scriptPath to ¬ 
     (choose file of type "osas" with prompt ¬ 
      "Ein Ordneraktions-Script wählen") as Unicode text 
   end timeout 
  else 
   try 
    scriptPath as alias 
   on error 
    tell application "Finder" to activate 
    with timeout of 300 seconds 
     set dR to button returned of (display dialog ¬ 
      "Das aktuelle Ordneraktions-Script kann nicht gefunden werden." buttons ¬ 
      {"Abbrechen", "Auswählen"} default button 2 with icon 2) 
     if dR = "Auswählen" then 
      set scriptPath to ¬ 
       (choose file of type "osas" with prompt ¬ 
        "Ein Ordneraktions-Script wählen") as Unicode text 
     else 
      error number -128 
     end if 
    end timeout 
   end try 
  end if 
  tell application "Finder" 
   set folderList to name of every folder of alias mainPath 
  end tell 
  repeat with curName in folderList 
   set curPath to mainPath & curName 
   tell application "System Events" 
    set scriptList to attached scripts curPath 
    if scriptList is {} then 
     attach action to curPath using scriptPath 
     set folStatus to true 
    else 
     repeat with i from (count of scriptList) to 1 by -1 
      remove action from curPath using action number i 
     end repeat 
     set folStatus to false 
    end if 
   end tell 
   if folStatus then 
    tell application "Finder" to set label index of folder curPath to 6 
   else 
    tell application "Finder" to set label index of folder curPath to 0 
   end if 
  end repeat 
 else 
  if file type of (get info for file mainPath) is "osas" then 
   set scriptPath to mainPath 
  end if 
 end if 
end open 

on adding folder items to hotFolder after receiving itemList 
    set hFolder to "Macintosh HD:Users:hans:Desktop:test01:querformat:" 
    set vFolder to "Macintosh HD:Users:hans:Desktop:test01:hochformat:" 
    try 
        hFolder as alias 
    on error 
        with timeout of 300 seconds 
            set hFolder to (choose folder with prompt ¬ 
                "zielordner querformat waehlen.") as Unicode text 
        end timeout 
    end try 
    try 
        vFolder as alias 
    on error 
        with timeout of 300 seconds 
            set vFolder to (choose folder with prompt ¬ 
                "zielordner hochformat waehlen.") as Unicode text 
        end timeout 
    end try 
     
    repeat with aFile in itemList 
        set AppleScript's text item delimiters to ":" 
        set filePath to aFile as Unicode text 
        set baseName1 to text 1 thru 2 of (text item -3 of filePath) 
        set baseName2 to text item -2 of filePath 
        set oldName to text item -1 of filePath 
        set AppleScript's text item delimiters to "." 
        if (count of text items of oldName) is greater than 1 then 
            set baseName3 to text items 1 thru -2 of oldName 
            set curSuff to "." & (text item -1 of oldName) 
        else 
            set baseName3 to oldName 
            set curSuff to "" 
        end if 
        set newName to baseName1 & "_" & baseName2 & "_" & baseName3 
        if (count of newName) is greater than 27 then 
            set newName to (text 1 thru 27 of newName) & curSuff 
        else 
            set newName to newName & curSuff 
        end if 
        set aFile to aFile as Unicode text 
        set curDim to getDim(aFile) 
        if curDim is not {} then 
            set {x, y} to curDim 
            if x is greater than y then 
                try 
                    tell application "Finder" to duplicate file aFile to folder hFolder with replacing 
                    try 
                        tell application "Finder" to set name of file oldName of folder hFolder to newName 
                    end try 
                end try 
            else if x is less than y then 
                try 
                    tell application "Finder" to duplicate file aFile to folder vFolder with replacing 
                    try 
                        tell application "Finder" to set name of file oldName of folder vFolder to newName 
                    end try 
                     
                end try 
            else 
                try 
                    tell application "Finder" to duplicate file aFile to folder hFolder with replacing 
                    try 
                        tell application "Finder" to set name of file oldName of folder hFolder to newName 
                    end try 
                     
                     
                end try 
            end if 
        end if 
         
         
    end repeat 
    set AppleScript's text item delimiters to {""} 
end adding folder items to 
 
on getDim(aFile) 
    set curDim to {} 
    tell application "Image Events" 
        launch 
        try 
            set curImg to open file aFile 
            set curDim to dimensions of curImg 
            close file aFile 
        on error 
            try 
                close file aFile 
            end try 
        end try 
    end tell 
    return curDim 
end getDim 

 
on adding folder items to hotFolder after receiving itemList 
    set targetFolder to "AN_Bilder:test_online:" 
     
     
    repeat with aFile in itemList 
         
         
        set AppleScript's text item delimiters to ":" 
         
        set sourceFile to POSIX path of aFile as Unicode text 
        set oldName to text item -1 of sourceFile 
         
        set baseName1 to text 10 thru 11 of (text item -3 of sourceFile) 
        set baseName2 to text item -2 of sourceFile 
        set oldName to text item -1 of sourceFile 
        set AppleScript's text item delimiters to "." 
         
        if (count of text items of oldName) is greater than 1 then 
            set baseName3 to text items 1 thru -2 of oldName 
            set curSuff to "." & (text item -1 of oldName) 
        else 
            set baseName3 to oldName 
            set curSuff to "" 
        end if 
        set newName to baseName1 & "_" & baseName2 & "_" & baseName3 
        if (count of newName) is greater than 27 then 
            set newName to (text 1 thru 27 of newName) & curSuff 
        else 
            set newName to newName & curSuff 
        end if 
        try 
            set targetFile to POSIX path of (targetFolder & newName) 
            do shell script "cp " & sourceFile & " " & targetFile 
        end try 
         
    end repeat 
    set AppleScript's text item delimiters to "" 
     
     
end adding folder items to 

 
on adding folder items to hotFolder after receiving itemList 
    set targetFolder to "Macintosh HD:Users:hans:Desktop:test01:" 
     
     
    repeat with aFile in itemList 
         
         
        set AppleScript's text item delimiters to "/" 
         
        set sourceFile to quoted form of POSIX path of aFile as Unicode text 
        set oldName to text item -1 of sourceFile 
         
        if (aFile as string) contains "an_" then 
            try 
                set AppleScript's text item delimiters to "." 
                 
                if (count of text items of oldName) is greater than 1 then 
                    set baseName0 to text items 1 thru -2 of oldName 
                    set curSuff to "" & (text 1 thru 3 of text item -1 of oldName) 
                else 
                    set baseName0 to oldName 
                    set curSuff to "" 
                end if 
                 
                if (count of oldName) is greater than 27 then 
                    set targetName to (text 1 thru 27 of baseName0) & curSuff 
                else 
                    set targetName to baseName0 & curSuff 
                end if 
                 
                set targetFile to quoted form of POSIX path of (targetFolder & targetName) 
                -- die Datei kopieren und dabei umbenennen  
                do shell script "cp " & sourceFile & " " & targetFile 
            end try 
        else 
            if (aFile as string) contains "az_" then 
                try 
                    set AppleScript's text item delimiters to "." 
                     
                    if (count of text items of oldName) is greater than 1 then 
                        set baseName0 to text items 1 thru -2 of oldName 
                        set curSuff to "" & (text 1 thru 3 of text item -1 of oldName) 
                    else 
                        set baseName0 to oldName 
                        set curSuff to "" 
                    end if 
                     
                    if (count of oldName) is greater than 27 then 
                        set targetName to (text 1 thru 27 of baseName0) & curSuff 
                    else 
                        set targetName to baseName0 & curSuff 
                    end if 
                     
                    set targetFile to quoted form of POSIX path of (targetFolder & targetName) 
                    -- die Datei kopieren und dabei umbenennen  
                    do shell script "cp " & sourceFile & " " & targetFile 
                end try 
            else 
                if (aFile as string) contains "re_" then 
                    try 
                        set AppleScript's text item delimiters to "." 
                         
                        if (count of text items of oldName) is greater than 1 then 
                            set baseName0 to text items 1 thru -2 of oldName 
                            set curSuff to "" & (text 1 thru 3 of text item -1 of oldName) 
                        else 
                            set baseName0 to oldName 
                            set curSuff to "" 
                        end if 
                         
                        if (count of oldName) is greater than 27 then 
                            set targetName to (text 1 thru 27 of baseName0) & curSuff 
                        else 
                            set targetName to baseName0 & curSuff 
                        end if 
                         
                        set targetFile to quoted form of POSIX path of (targetFolder & targetName) 
                        -- die Datei kopieren und dabei umbenennen  
                        do shell script "cp " & sourceFile & " " & targetFile 
                    end try 
                else 
                    set baseName1 to text 10 thru 11 of (text item -3 of sourceFile) 
                    set baseName2 to text item -2 of sourceFile 
                    set oldName to text item -1 of sourceFile 
                    set AppleScript's text item delimiters to "." 
                     
                    if (count of text items of oldName) is greater than 1 then 
                        set baseName3 to text items 1 thru -2 of oldName 
                        set curSuff to "." & (text 1 thru 3 of text item -1 of oldName) 
                    else 
                        set baseName3 to oldName 
                        set curSuff to "" 
                    end if 
                    set newName to baseName1 & "_" & baseName2 & "_" & baseName3 
                    if (count of newName) is greater than 27 then 
                        set newName to (text 1 thru 27 of newName) & curSuff 
                    else 
                        set newName to newName & curSuff 
                    end if 
                    try 
                        set targetFile to quoted form of POSIX path of (targetFolder & newName) 
                        do shell script "cp " & sourceFile & " " & targetFile 
                    end try 
                     
                end if 
            end if 
        end if 
    end repeat 
    set AppleScript's text item delimiters to "" 
     
     
end adding folder items to 

repeat with aFile in itemList 
        set ctr to 0 
        set okay to 0 
        repeat while okay = 0 
             
            ...  
                    do shell script "cp " & sourceFile & " " & targetFile 
                    set okay to 1 
                     
                end try 
                set ctr to ctr + 1 
                if ctr > 30 then 
                    display dialog "Problem mit der Datei  
" & (aFile as string) buttons "OK" default button 1 with icon 2 
                    exit repeat 
                end if 

(* 
    input parameters: 
    theSource=Path to file or folder as string (folder with trailing ":" copies only contents of Folder, without the folder itself) 
    theDest = path to destination folder or file as string 
    overWriteVar = Boolean overwrite an existing file or not 
    *) 
on duplicateFileUnix(theSource, theDest, overwriteVar) 
    log ("*Duplicate File " & theSource & " to " & theDest as string) 
    try 
        if overwriteVar = false then 
            do shell script "cp -Rn " & (quoted form of (POSIX path of theSource)) & " " & (quoted form of (POSIX path of theDest)) 
        else 
            do shell script "cp -R " & (quoted form of (POSIX path of theSource)) & " " & (quoted form of (POSIX path of theDest)) 
        end if 
        tell application "Finder" 
            try 
                update alias (theDest as string) 
            end try 
            if theDest ends with ":" then 
                set tmpName to name of item (theSource as string) as string 
                if exists item (theDest & tmpName as string) then return true 
            else 
                if exists item (theDest as string) then return true 
            end if 
             
        end tell 
        return false 
    on error 
        return false 
    end try 
end duplicateFileUnix