[User with some AS expereince - not much!]
The script below worked fine when created tested under OS 10.3.9. however, on a colleague’s OS 10.4 desktop the script fails. FWIW, this was done as a tech-averse colleague complained the digital camera files he was cataloguing in Extensis Portfolio (a DAM program), when called for editing got opened in Preivew not Photoshop (as they have no Mac type/creator info).
I don’t have Tiger but I believe some Finder menus/settings changed. Might this be the cause? I’ve not easy access to the Tiger Mac plus I don’t have Tiger myself. The work is being done by Finder, Portfolio is merely setting up the list of files to amend (though does it matter in the file paths are HFS or POSIX?).
tell application "Portfolio 7.0"
set askUser to "Set Creator '8BIM' and Type 'JPEG' for all items in the current gallery?"
set r to display dialog askUser buttons {"No", "Yes"} default button "Yes"
if button returned of r is "No" then
display dialog "Script aborted." buttons {"OK"}
return
end if
tell selected gallery of document 1
set path_list to file path of every record
set list_size to (count of path_list) as string
end tell
tell application "Finder"
repeat with file_path in path_list
try
set file type of file file_path to "JPEG"
set creator type of file file_path to "8BIM"
on error error_message
display dialog error_message
return
end try
end repeat
end tell
display dialog "Done. " & list_size & " items processed."
end tell
Hoping someone can help shed some light on this.
mwra