(*  
FotosKopieren_01d.app 
Bild-Dateien in einen Zielordner kopieren 
© 27.02.14  /  Hans Haesler, Châtelard 52, CH-1018 Lausanne 
*) 
 
global allNames 
global monthNames 
global targetFolder 
 
-- einen Dialog zeigen, falls der Anwender einen Doppelklick auf das Droplet macht  
on run 
  display dialog "Die Fotos auf dem Icon  
dieses Droplets deponieren." buttons "OK" default button 1 with icon 0 
end run 
 
-- der 'open handler', welcher auf das Fallenlassen von Objekten reagiert  
on open allObjects 
  -- den Zielordner auswählen 
  set targetFolder to (choose folder with prompt "Bitte den Zielordner wählen:") as Unicode text 
  -- die Namen aller Fotos auflisten 
  tell application "iPhoto" 
    set allNames to get name of every photo 
  end tell 
  -- die Monatsnamen 
  set monthNames to {"01_Januar", "02_Februar", "03_Maerz", "04_April", "05_Mai", "06_Juni", ¬ 
"07_Juli", "08_August", "09_September", "10_Oktober", "11_November", "12_Dezember"} 
  -- Wiederholschleife, welche alle gedroppten Objekte zum Handler 'processFile' schickt  
  repeat with aObject in allObjects 
    processFile(aObject as Unicode text) 
  end repeat 
  -- den Anwender über das Ergbenis der Aktion informieren 
  display dialog "Fertig." buttons "OK" default button 1 with icon 2 giving up after 1 
end open 
 
-- die Datei in den Zielordner kopieren  
on processFile(aFile) 
  -- der Name der Datei ohne Suffix 
  tell application "Finder" to set docName to text 1 thru -5 of (get name of alias aFile) 
  -- das Datum speichern 
  set curDate to "" 
  tell application "iPhoto" 
    -- eine Schleife durch die Namen 
    repeat with n from 1 to count allNames 
      -- bei einer Übereinstimmung ... 
      if item n of allNames is "P6190309" then 
        -- … das Datum holen ... 
        set curDate to date of photo n 
        -- … und die Schleife verlassen 
        exit repeat 
      end if 
    end repeat 
  end tell 
   
  -- wenn das Datum nicht leer ist 
  if curDate is not "" then 
    -- das Jahr zuweisen 
    set curYear to year of curDate 
    -- den Index des Monats feststellen und das entsprechende Element der Liste 
    set m to (get month of curDate) as integer 
    set curMonth to item m of monthNames 
     
    -- der Jahresordner 
    set yearFolder to (targetFolder & curYear) as string 
    -- testen, ob der Jahresordner vorhanden ist...  
    tell application "Finder" 
      -- wenn nicht vorhanden, den Ordner erzeugen ...  
      if not (yearFolder exists) then 
        try 
          make new folder at targetFolder with properties {name:curYear} 
        end try 
      end if 
    end tell 
     
    -- der Monatsordner 
    set monthFolder to (yearFolder & ":" & curMonth) as string 
    -- testen, ob der Monatsordner vorhanden ist...  
    tell application "Finder" 
      -- wenn nicht vorhanden, den Ordner erzeugen ...  
      if not (monthFolder exists) then 
        try 
          make new folder at yearFolder with properties {name:curMonth} 
        end try 
      end if 
    end tell 
     
    -- die aktuelle Datei kopieren 
    try 
      tell application "Finder" to duplicate aFile to monthFolder with replacing 
    end try 
  end if 
end processFile 

(*  
FotosKopieren_02d.scpt 
Bild-Dateien in einen Zielordner kopieren 
© 09.03.14  /  Hans Haesler, Châtelard 52, CH-1018 Lausanne 
*) 
 
global allNames 
global monthNames 
global targetFolder 
 
-- der Handler 'adding folder items to', welcher auf das Fallenlassen von Objekten reagiert  
on adding folder items to thisFolder after receiving theseObjects 
  -- den Zielordner auswählen 
  set targetFolder to thisFolder as Unicode text 
  -- die Namen aller Fotos auflisten 
  tell application "iPhoto" 
    set allNames to get name of every photo 
  end tell 
  -- die Monatsnamen 
  set monthNames to {"01_Januar", "02_Februar", "03_Maerz", "04_April", "05_Mai", "06_Juni", ¬ 
"07_Juli", "08_August", "09_September", "10_Oktober", "11_November", "12_Dezember"} 
  -- Wiederholschleife, welche alle gedroppten Objekte zum Handler 'processFile' schickt  
  repeat with aObject in theseObjects 
    processFile(aObject as Unicode text) 
  end repeat 
  -- den Anwender über das Ergbenis der Aktion informieren 
  display dialog "Fertig." buttons "OK" default button 1 with icon 2 giving up after 1 
end adding folder items to 
 
-- die Datei in den Zielordner kopieren  
on processFile(aFile) 
  -- der Name der Datei ohne Suffix 
  tell application "Finder" to set docName to text 1 thru -5 of (get name of alias aFile) 
  -- das Datum speichern 
  set curDate to "" 
  tell application "iPhoto" 
    -- eine Schleife durch die Namen 
    repeat with n from 1 to count allNames 
      set curItem to item n of my allNames 
      -- bei einer Übereinstimmung ... 
      if curItem is docName then 
        -- … das Datum holen ... 
        set curDate to date of photo n 
        -- … und die Schleife verlassen 
        exit repeat 
      end if 
    end repeat 
  end tell 
   
  -- wenn das Datum nicht leer ist 
  if curDate is not "" then 
    -- das Jahr zuweisen 
    set curYear to year of curDate 
    -- den Index des Monats feststellen und das entsprechende Element der Liste 
    set m to (get month of curDate) as integer 
    set curMonth to item m of monthNames 
     
    -- der Jahresordner 
    set yearFolder to (targetFolder & curYear) as string 
    -- testen, ob der Jahresordner vorhanden ist...  
    tell application "Finder" 
      -- wenn nicht vorhanden, den Ordner erzeugen ...  
      if not (yearFolder exists) then 
        try 
          make new folder at targetFolder with properties {name:curYear} 
        end try 
      end if 
    end tell 
     
    -- der Monatsordner 
    set monthFolder to (yearFolder & ":" & curMonth) as string 
    -- testen, ob der Monatsordner vorhanden ist...  
    tell application "Finder" 
      -- wenn nicht vorhanden, den Ordner erzeugen ...  
      if not (monthFolder exists) then 
        try 
          make new folder at yearFolder with properties {name:curMonth} 
        end try 
      end if 
    end tell 
     
    -- die aktuelle Datei kopieren 
    try 
      tell application "Finder" to move aFile to monthFolder with replacing 
    end try 
  end if 
end processFile