Set a file icon from image file of same name

Question

I have a folder of files and I have another folder of images that have the same names as the files. What I would like to do is apply an icon of each image to it's corresponding file. Is this possible? Any help would be greatly appreciated.
Ian

Answer 1

IanWfsdafeqry rasrbd wrote:
I have a folder of files and I have another folder of images that have the same names as the files. What I would like to do is apply an icon of each image to it's corresponding file. Is this possible? Any help would be greatly appreciated.
That reminds me of the question asked by Fierabras in this thread.
If both of your folders contain exactly the same number of files, and if the names of the files are the same in both folders (except the name extension of course), then the following script should do what you are asking for, though admittedly not in the background.
(The script seems to work flawlessly on my MacBook Pro under Mac OS X 10.8.)
tell application "Finder"
    set folder1 to folder POSIX file "/POSIX/path/to/folder/of/images"
    -- for example: "/Users/me/Desktop/My images"
    set folder2 to folder POSIX file "/POSIX/path/to/folder/of/files"
    -- for example: "/Users/me/Desktop/My files"
    set N to (count folder1)
    if not (count folder2) = N then return
    set theImages to files of folder1
    set theFiles to files of folder2
    tell application "Image Events" to launch
    repeat with k from 1 to N
        set thisImageFile to item k of theImages
        tell application "Image Events"
            set theImage to open thisImageFile as alias
            save theImage with icon
            close theImage
        end tell
        tell application "Finder"
            activate
            set infoWindow1 to open information window of thisImageFile
            tell application "System Events"
                keystroke tab
                keystroke "c" using command down
                keystroke "x" using command down -- optional
            end tell
            close infoWindow1
            set infoWindow2 to open information window of item k of theFiles
            tell application "System Events"
                keystroke tab
                keystroke "v" using command down
            end tell
            close infoWindow2
        end tell
    end repeat
    tell application "Image Events" to quit
end tell
Message was edited by: Pierre L. (“count folder” instead of “count files of folder”)