Om du står ut med ett krattigt gränssnitt och kan tänka dig att installera ExifTool kan du köra detta inifrån iPhoto:
tell application "iPhoto"
set S to selection
set C to count S
repeat with I from 1 to count S
set myFilePath to original path of item I of S
tell application "Finder"
set myDrive to name of startup disk
tell me to set text item delimiters to "/"
set myFilePath to text items of myFilePath
tell me to set text item delimiters to ":"
set myFilePath to myDrive & myFilePath as string
tell me to set text item delimiters to ""
end tell
set myFilePath to quoted form of POSIX path of myFilePath
set myExifCommand to "exiftool " & myFilePath
set myFileNameCommand to "exiftool -File Name " & myFilePath
set myFilename to do shell script myFileNameCommand
set myExif to do shell script myExifCommand
tell me to set text item delimiters to "/"
set myFilename to text item -1 of myFilename
tell me to set text item delimiters to ""
try
set myFilename to myFilename
on error
set myFilename to "[Ingen uppgift]"
end try
display dialog ("Bild " & I & " av " & C & " markerade") & return & "Filnamn: " & myFilename default answer myExif buttons {"Avbryt", "OK"} default button 2
end repeat
end tell
Kärnan kommer från Mattias Jonsson i en annan tråd.
