Hi all, I just created my first Aperture AppleScript, and I’m proud to say it works, thanks in no small part to reading through the forum here. Thanks, everyone!
The script opens selected Aperture photos/videos into Flickr Uploadr. I’m finding this useful as a way to upload videos from Aperture to Flickr (which can’t be done using FlickrExport). Alas, uploading is not entirely automated, as Flickr Uploadr has no AppleScript dictionary, but at least this script will have Flickr Uploadr ready to go with the batch you select.
Sure, it’s not the most advanced script, but I figured I’d post it here to 1) share it, and 2) ask if anyone has any tips on improving it in any way. Thanks for reading!
Cheers,
Peter
Here’s the script:
– This script will open selected Aperture photos/videos in Flickr Uploadr (They will be placed in the batch to be uploaded. You will still need to set titles, tags, etc. manually in Flickr Uploadr.)
– NOTE: Folder scratchFolder may be safely deleted after the files are uploaded (or if you decide not to upload the files after all).
– ALSO NOTE: Running this script will delete all the files in scratchFolder. So do not run it while files are being uploaded from the folder!
– Written by Peter Dutton, December 17, 2013
set scratchFolder to “Aperture Scratch Folder”
tell application “Aperture”
set imagesSelected to (get selection)
if imagesSelected is not {} then – Only do the following if items are selected!
– CREATE APERTURE SCRATCH FOLDER AND MAKE SURE IT IS EMPTY
tell application “Finder”
set desktopPath to path to desktop
if not (exists folder scratchFolder of folder desktopPath) then
make new folder at desktopPath with properties {name:scratchFolder}
end if
set fullScratchPath to folder scratchFolder of folder desktopPath as alias
delete entire contents of fullScratchPath
end tell
– EXPORT SELECTED IMAGES TO APERTURE SCRATCH FOLDER
export imagesSelected to fullScratchPath
– OPEN THEM IN FLICKR UPLOADR
– (Note: tried to replace “Flickr Uploadr” with a variable, but failed)
tell application “Flickr Uploadr” to launch – if not launched before trying to open files, we get errors
tell application “Finder”
set filesToUpload to files of fullScratchPath as alias list
tell application “Flickr Uploadr” to open filesToUpload
end tell
end if
end tell