on setCustomIcon(aPath, aFolder)
　　set aFolderPath to current application’s NSString’s stringWithString:aFolder
　　
　　set aURL to current application’s |NSURL|’s fileURLWithPath:aPath
　　set aImage to current application’s NSImage’s alloc()’s initWithContentsOfURL:aURL
　　
　　set aSW to current application’s NSWorkspace’s sharedWorkspace()
　　aSW’s setIcon:(missing value) forFile:aFolder options:0 –Erase
　　tell application "Finder"
　　　　update ((POSIX file aFolder) as alias) –Refresh State
　　end tell
　　
　　aSW’s setIcon:aImage forFile:aFolderPath options:0 –Write
　　tell application "Finder"
　　　　update ((POSIX file aFolder) as alias) –Refresh State
　　end tell
end setCustomIcon

★Click Here to Open This Script