Iconizer

Hello, here's a pretty cool Apple Script that you might enjoy. I call it the "Iconizer". It transfers icons from files and folders to other files and folders and vice versa. I also threw in the Iconizer app and some cool folders to practice with. Enjoy!

Perhaps I should paste the script here for those who are a bit apprehensive of downloading. The script has one annoying limitation, however. If the source object is a jpeg with a generic icon (See attachment 1), the generic icon will be transferred to the target object. I have a shell script (sips -i "$@") that I made in to an app called "PictureIconizer" (See attacment 2) that I'd like to add to this Apple Script, which should solve this limitation, when I have the time (In the U.S. it's work, work and work!). Perhaps Ric could knock this out for us if he'd be so kind. Here's the Iconizer Apple Script-


on run {}
set theSourceObject to my DetermineLocationOfObject("source")
set theTargetObject to my DetermineLocationOfObject("target")
my ApplyCustomIcon(theSourceObject, theTargetObject)
end run

to DetermineLocationOfObject(ObjectType)
display dialog "Is the " & ObjectType & " object going to be a file or a folder?" buttons {"File", "Folder"} default button 2
if button returned of the result is equal to "File" then
set theObject to choose file with prompt "Please locate the " & ObjectType & " file."
else
set theObject to choose folder with prompt "Please locate the " & ObjectType & " folder."
end if
return theObject
end DetermineLocationOfObject

to ApplyCustomIcon(SourceObject, TargetObject)

my HandleInfoWindow("source", SourceObject)
my HandleInfoWindow("target", TargetObject)

end ApplyCustomIcon

to HandleInfoWindow(ObjectType, theObject)

tell application "Finder"
activate
set InfoWindow to name of (open information window of item theObject)
end tell

tell application "System Events"
tell application process "Finder"
tell window InfoWindow
keystroke tab
if ObjectType is equal to "source" then
keystroke "c" using command down
else
keystroke "v" using command down
end if
end tell
end tell
end tell

tell application "Finder"
close window InfoWindow
if ObjectType is equal to "target" then display dialog "Icon transferred." buttons {"OK"} default button 1 giving up after 5
end tell

end HandleInfoWindow