ishikawa

-- iPhotoExporter.applescript
-- Copy all photos of the album of iPhoto

on exportAlbum(theRecord)
	tell application "Finder"
		set theArchiveFolder to folder "iphoto" of desktop
		try
			make new folder at theArchiveFolder with properties {name:name of theRecord}
		end try
		set theAlbumFolder to folder (name of theRecord) of theArchiveFolder