repeat with x from 1 to export_key_count
tell application "iPhoto" to set current_photo_list to every photo in item x of export_key_list
tell application "Finder"
set move_list to {}
set photo_count to count of current_photo_list
set running_count to running_count + photo_count
set this_export_folder to item x of export_folder_list
repeat with p from 1 to photo_count
tell application "iPhoto"
set this_file_path to image path of item p of current_photo_list as POSIX file as alias
add item p of current_photo_list to album "Exported"
end tell
set end of move_list to this_file_path
end repeat
try
duplicate move_list to this_export_folder with replacing
end try
end tell