set folderPath to (choose folder) as Unicode text 
set unix to quoted form of POSIX path of folderPath 
 
display dialog "Ordnerpfad" default answer unix 

property hotFolder : "" 
property targetFolder : "" 
property backupFolder : "" 
property webFolder : "" 
 
property delayCheck : 10 
 
-- <<<< IF NOT DEFINED YET, CHOOSE HOTFOLDER & TARGETFOLDER >>>>  
on run 
    if hotFolder = "" then 
        set hotFolder to choose folder with prompt "Bitte wählen: Hot-Folder:" 
        if targetFolder = "" then 
            set targetFolder to choose folder with prompt "Bitte wählen:Target-Folder:" 
            if backupFolder = "" then 
                set backupFolder to choose folder with prompt "Bitte wählen:Backup-Folder:" 
                if webFolder = "" then 
                    set webFolder to choose folder with prompt "Bitte wählen: Web-Folder:" 
                end if 
            end if 
        end if 
    else 
        display dialog ¬ 
            "• HOTFOLDER: " & return & (POSIX path of hotFolder as text) & return & return & ¬ 
            "• TARGETFOLDER: " & return & (POSIX path of targetFolder as text) & return & return & ¬ 
            "• backupFolder: " & return & (POSIX path of backupFolder as text) & return & return & ¬ 
            "• webFolder: " & return & (POSIX path of webFolder as text) 
         
    end if 
end run 
 
-- <<<< CHECK FOR NEW FILES IN HOTFOLDER EVERY __ SECONDS >>>>  
on idle 
    if hotFolder is not "" then 
        say "check" 
        set FILELIST to list files of hotFolder 
        if length of FILELIST > 0 then 
            repeat with i from 1 to length of FILELIST 
                FILEACTION(item i of FILELIST as alias) 
            end repeat 
        end if 
        return delayCheck -- check-interval in seconds  
    else 
        quit me 
    end if 
end idle 
 
-- <<<< REACTION, IF USER TRY TO QUIT THIS SCRIPT-APPLICATION >>>>  
on quit 
    activate 
    display dialog "Really Quit The Hotfolder-Action?" buttons {"Cancel", "Quit Hotfolder"} default button "Cancel" 
    if button returned of result = "Quit Hotfolder" then 
        -- place things here to perform them before completion of this script  
        continue quit 
    end if 
end quit 
 
-- <<<< PROCESS AN MOVE THE FILE, IF COMPLETLY TRANSFERED >>>>  
on FILEACTION(d) 
     
     
    set size1 to (size of (info for d)) 
    if (size1 > 0) then 
        delay 5 
        set size2 to (size of (info for d)) 
        if (size1 = size2) then 
            if (d as string) contains "an_" then 
                justDistribute(d) 
            else 
                if (d as string) contains "az_" then 
                    justDistribute(d) 
                else 
                    if (d as string) contains "re_" then 
                        justDistribute(d) 
                    else 
                        set AppleScript's text item delimiters to ":" 
                        set filePath to d 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 
                        tell application "Finder" to duplicate file d to folder backupFolder with replacing 
                        tell application "Finder" to set name of file oldName of folder backupFolder to newName 
                        tell application "Finder" to duplicate file d to folder webFolder with replacing 
                        tell application "Finder" to set name of file oldName of folder webFolder to newName 
                         
                        tell application "Finder" to move file d to folder targetFolder with replacing 
                        tell application "Finder" to set name of file oldName of folder targetFolder to newName 
                         
                         
                    end if 
                end if 
            end if 
             
        end if 
    end if 
end FILEACTION 
 
on justDistribute(d) 
    tell application "Finder" to duplicate d to webFolder with replacing 
    tell application "Finder" to duplicate d to backupFolder with replacing 
    tell application "Finder" to move d to targetFolder with replacing 
end justDistribute 

        set FILELIST to list files of hotFolder 

        tell application "Finder" to set FILELIST to hotFolder's files 

set fileKind to kind of (info for d) 
                if fileKind = "alias" then ... 

on idle 
            if hotFolder is not "" then 
            set FILELIST to list files of hotFolder 
            if length of FILELIST > 0 then 
                    repeat with i from 1 to length of FILELIST 
                        FILEACTION(item i of FILELIST as alias) 
                    end repeat 
            end if 
            return delayCheck -- check-interval in seconds  
        else 
            quit me 
        end if 
end idle 

            set FILELIST to list files of hotFolder of extension {"jpg", "tif", "bmp", "eps"}