Изменить значок папки с AppleScript?

Question

Я создал AppleScript очень полезно для меня, и я хочу, если можно автоматически изменить значок папки.

Этот сценарий очень прост, он создает одну папку, а затем создает один пустой текстовый файл в той же папке.

Вот сценарий:

tell application "Finder" 
    set newfolder to make new folder with properties {name:My Folder} 
    make new file at newfolder with properties {name:"read_me.txt"} 
end tell 

Можно ли автоматически изменить значок папки?

(у меня есть свой собственный значок папки (.icns) в той же папке, что и сценарий, конечно)

Answer 1

Heres решение, которое использует утилиту командной строки «SetIcon» найдено в этом пакете: http://sourceforge.net/projects/osxutils/

Он работает в предположении, что ваш скрипт, файл icns и новая папка находятся в одном каталоге.

tell application "Finder" 
    set parent_path to ((the container of the (path to me)) as text) 
    set target_folder_path to quoted form of POSIX path of (parent_path & "my folder") 
    set icon_path to quoted form of POSIX path of (parent_path & "icon.icns") 
    do shell script "/usr/local/bin/seticon -d " & icon_path & " " & target_folder_path 
end tell