入手先をSpotlightコメントへ
ダウンロード先をSpotlightコメントに入力してくれるApple Script « tybx
on adding folder items tothisFolderafter receivingsomeItems
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
