How to add Album name to keywords
Feel free to improve or use it as it is ...
use the. script to see in Keywords the allocation to the albums; e.g. @myAlbum, @yourAlbum
-----------
tell application "Photos"
activate
set cnt to 0
set aStart to 440
set aEnd to 500
repeat with aAlbum in albums
set cnt to cnt + 1
if not (cnt ≥ aStart and cnt ≤ aEnd) then
log cnt
else
log cnt & " Album" & (count (media items of aAlbum)) & "Bilder "
set aKeyword to "@" & name of aAlbum
repeat with aItem in media items of aAlbum
if keywords of aItem as string is "missing value" then
set keywords of aItem to aKeyword
else
set keywords of aItem to keywords of aItem & aKeyword
end if
end repeat
end if
end repeat
display dialog "fertig" buttons {"OK"} default button 1 giving up after 10
end tell
return
