1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

-- By Henrik Nyh, 2008-05-24.
-- http://henrik.nyh.se/2008/05/iphoto-library-manager-shortcuts-with-drag-and-drop-importing
-- Free to modify and redistribute with due credit.

on run
  openLibrary()
end run

-- Script was drag-and-dropped onto
on open (listOfAliases)
  openLibrary()
  tell application "iPhoto" to import from listOfAliases
end open

on openLibrary()
  tell application "iPhoto Library Manager"
    open «class iLib» named "Library Name - Change This!"
    quit
  end tell
  tell application "iPhoto" to activate
end openLibrary