Import auto split projects

Hi,

I couldn't find a way to do it automatically, so wrote a small script to sort a single project into multiple dated projects, and move each photo into that project.

Save the script below somewhere safe and select it on the A3 import dialog to run after import.
Create a blue folder at the library root called Shoebox.
When importing, don't autosplit, but import everything into a project called untitled project.

The script will run after import and sort as needed.

Works OK for me on my limited testing, but use at your own risk!

Cheers

Darren



tell application "Aperture"
set rootFolder to "Shoebox"
set importProject to "untitled folder"

tell library 1
set _items to every image version in project importProject
repeat with i from 1 to count of _items
tell item i of _items
set imageDate to value of EXIF tag "ImageDate"
end tell

set dash to "-"

set _tday to day of imageDate as number
if _tday < 10 then
set _day to "0" & (_tday as string)
else
set _day to _tday as string
end if

set _tmonth to month of imageDate as number
if _tmonth < 10 then
set _month to "0" & (_tmonth as string)
else
set _month to _tmonth as string
end if

set _year to year of imageDate as string

set _name to _year & dash & _month & dash & _day

if not (exists folder rootFolder) then
make new folder with properties {name:rootFolder}
end if

tell folder rootFolder
if not (exists project _name) then
make new project with properties {name:_name}
end if

move item i of _items to project _name
end tell
end repeat

delete project importProject
end tell
end tell