On Oct 28, 2010, at 5:38 PM, Alex Zavatone wrote:
This script is pretty close to having it working.
on adding folder items to thisFolder after receiving someItems
if (count items of someItems) ≠ 1 then return
set itemAlias to (item 1 of someItems) as alias
do shell script "mdls " & (quoted form of (POSIX path of itemAlias))
set urls to the result
set oldDelimiters to AppleScript's text item delimiters
set AppleScript's text item delimiters to {"kMDItemWhereFroms"}
try
set urls to (text item 2 of urls)
set AppleScript's text item delimiters to {quote}
if (count urls's text items) ≤ 3 then
set urls to (text item 2 of urls)
else
set urls to (text item 4 of urls)
end if
set myFile to itemAlias as string
tell application "Finder"
set the comment of file myFile to urls
end tell
on error
set AppleScript's text item delimiters to oldDelimiters
return -- urls don't exist
end try
end adding folder items to