Add icon to Folder (works on 10.6 but not 10.8)

Question

I'm trying to create a folder and then add an icon. the script below works without a problem once the developer tools are installed on OSX 10.6, many thanks to help from the forum. However it doesn't work on OSX 10.8
Is it possible to get it to work on 10.6 through to 10.8
set folderIcon to (((path to me) as text) & "Contents:Resources:Icons:folder.icns") as alias
tell application "Finder"
  make folder at (path to desktop) with properties {name:"hello"}
          my (setCustomIcon from folderIcon to the result)
end tell
to setCustomIcon from imageFile to destination
          Set the icon of a destination file item to the image contained in imageFile
                    parameters -                    imageFile [various]:          an imagefile for the icon (Finder alias or POSIX text)
                                                  destination [various]:          a destination item to set to the icon (Finder alias or POSIX text)
                    returns [boolean]:          true if icon is set, false otherwise
          set imageFile to imageFile as text
          if imageFile starts with "/" then -- check for POSIX file
                    set imageFile to imageFile as POSIX file as alias
          else
                    set imageFile to imageFile as alias
          end if
          set destination to destination as text
          if destination does not start with "/" then -- check for POSIX file
                    set destination to POSIX path of destination
          end if
          try
                    tell application "Finder" -- copy the icon image to a temporary file
                              (duplicate imageFile to (path to temporary items) with replacing) as alias
                              set tempImage to quoted form of POSIX path of the result
                    end tell
                    set tempResource to quoted form of (POSIX path of (((path to temporary items) as text) & "TempResource"))
  do shell script "/usr/bin/sips -i " & tempImage -- add a Finder icon to the image
                    do shell script "/Developer/Tools/DeRez -only icns " & tempImage & " > " & tempResource -- get the icon resource
  do shell script "/usr/bin/file " & quoted form of destination -- determine the destination file type
                    if the result contains "directory" then -- folder
                              set theTarget to quoted form of (destination & "/Icon" & return) -- create Icon\r file
                              set Command to "rm " & theTarget & "; " -- remove any existing custom icon
                              set Command to Command & "/Developer/Tools/Rez -a " & tempResource & " -o " & theTarget & "; " -- add resource file to a folder
                              set Command to Command & "/Developer/Tools/SetFile -a V " & theTarget & "; " -- make it invisible
                    else -- file
                              set Command to "/Developer/Tools/Rez -a " & tempResource & " -o " & quoted form of destination & "; " -- add resource to a file
                    end if
                    set Command to Command & "/Developer/Tools/SetFile -a C " & quoted form of destination -- set custom icon attribute
  do shell script Command -- do it
          on error errmess number errnum -- oops
  log errmess
  -- display alert "Error " & errnum message errmess buttons {"OK"}
                    return false
          end try
          try -- remove temporary files
  do shell script "rm " & tempImage & space & tempResource
          end try
          tell application "Finder" to update (destination as POSIX file)
          return true
end setCustomIcon

Answer 1

Hello
Not that I can help you to adjust the code for 10.8...
Here's a script that should work under 10.5 or later. (Actually 10.4 or later with additional install of RubyCocoa.)
--applescript set imagef to (path to me)'s POSIX path & "Contents/Resources/Icons/folder.icns" --set imagef to (path to desktop)'s POSIX path & "folder.icns"  tell application "Finder"     make new folder at (path to desktop) with properties {name:"hello"}     my setIcon((result as alias)'s POSIX path, imagef) end tell  on setIcon(f, imagef)     (*         string f : POSIX path of target file or folder         string imagef : POSIX path of image file     *)     set rb to "require 'osx/cocoa' include OSX raise ArgumentError, %Q[Usage: $0 <file> <image file>] unless ARGV.length == 2 file, imagef = ARGV image = NSImage.alloc.initWithContentsOfFile(imagef) NSWorkspace.sharedWorkspace.objc_send(     :setIcon, image,     :forFile, file,     :options, 0) "     do shell script "/usr/bin/ruby -e " & rb's quoted form & " " & f's quoted form & " " & imagef's quoted form end setIcon --end of applescript
Hope this may be of some help,
H
How can I make it work for more than one icon to folder?
A the top you set the varible imagef and then it gets used again in the handler, what if I had imageg imagej etc? how could I do this but keep it simple?
Many thanks nonetheless as this works very well so far for me on 10.6 and 10.8