AppleScript to handle the original file when I add an alias to a folder

Question

I'm looking for a Folder Action to solve this problem:
When I add a file to a specific folder (the files added to this folder are always aliases), I want the original file of the alias to get his label color setted to another color.
How can I do this?
Jean-François

Answer 1

Hello
You may try something like the following script.
    This script can be run in three ways -
    [1] run as automator folder action; argv = {input, parameters} where input is alias list added to folder
    [2] run in editor; argv = script (self)
    [3] run as applescript folder action; argv = alias list added to folder
on run argv
    if argv's class = list then -- [1]
        _main(argv's item 1)
    else -- [2]
        choose file of type {"com.apple.alias-file"} with multiple selections allowed
        _main(result)
    end if
end run
on adding folder items to d after receiving argv -- [3]
    _main(argv)
end adding folder items to
on _main(argv)
    script o
        property |LABEL| : 4
            0   none
            1   orange
            2   red
            3   yellow
            4   blue
            5   purple
            6   green
            7   gray
        property aa : argv
        repeat with a in my aa
            set a to a's contents
            tell application "Finder"
                if item a's class = alias file then
                    set item a's original item's label index to |LABEL|
                end if
            end tell
        end repeat
    end script
    run script o
end _main
Briefly tested under OS X 10.6.8.
* Note that folder action can be very slow to be triggered.
Regards,
H