Pratique pour une personne qui veut deswitcher, ou faire un backup compatible avec Windows par exemple.
Enfin bref, je me dit que ça peut servir donc je le mets à dispo
(c'est certainement optimisable, parce que la ça prends un temps FOU)
-- choix pour l'utilisateur du répertoire de sauvegarde tell application "Finder" set main_output_folder to choose folder with prompt "Select output folder" end tell tell application "iPhoto" -- récupération de la liste des albums set album_list to every album -- boucle pour chaque album repeat with i from 1 to the count of album_list set current_album to the item i of album_list set album_name to the name of current_album set test to the type of current_album -- seulement pour les vrais albums (IE pas la phototèque, pas la dernière pellicule ...) if test is equal to regular album then -- création du répertoire pour l'album tell application "Finder" -- si le répertoire n'existe pas, on le crée if not (exists folder album_name of main_output_folder) then make new folder at main_output_folder with properties {name:album_name} end if -- répertoire pour l'export set album_folder to folder album_name of main_output_folder end tell -- pour chaque image de l'album set album_photos to every photo of the current_album repeat with j from 1 to the count of album_photos set current_photo to the item j of album_photos set photo_file to (POSIX file (image path of current_photo as string)) as string --copie de la photographie tell application "Finder" duplicate photo_file to album_folder with replacing end tell end repeat end if end repeat end tell