NikonPoint

Code: Alles auswählen

global MyMonth 
global MyMonthNumber 

on adding folder items to thisFolder after receiving TheseItems 
   set Bilderordner to (path to pictures folder as string) 
    
   tell application "Finder" 
      try 
         --Erstellungsdatum für Ordnernamen ermitteln 
         set mydate to the creation date of the first item in TheseItems as string 
         set myyear to word 4 of mydate 
         set MyMonth to word 3 of mydate 
         my MonatsZahl() 
          
         --neuen Ordner erstellen 
         set NeuerOrdner to myyear & "_" & MyMonthNumber 
         set NeuerOrdnerPfad to Bilderordner & NeuerOrdner & ":" 
         if not (exists NeuerOrdnerPfad) then 
            make new folder at folder Bilderordner 
            set the name of the result to NeuerOrdner 
         end if 
          
         --Tempordner für Dateiimport erstellen 
         set TempOrdner to Bilderordner & "Import:" 
         if not (exists TempOrdner) then 
            make new folder at folder Bilderordner 
            set the name of the result to "Import" 
         end if 
         move (every file of folder thisFolder) to (TempOrdner) 
          
         --Bilder importieren 
         tell application "iPhoto" 
            activate 
            import from alias TempOrdner without force copy 
            repeat while importing 
            end repeat 
         end tell 
          
         --Bilder in richtigen Dateiordner verschieben 
         move (every file of folder TempOrdner) to (NeuerOrdnerPfad) 
         --Tempordner wieder löschen 
         delete TempOrdner 
          
      on error errMsg 
         display dialog errMsg 
      end try 
   end tell 
end adding folder items to 


--Daten für den Namen des Bilderordner ermitteln 
on MonatsZahl() 
   set MonatsListe to {"Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September", "Oktober", "November", "Dezember"} 
   repeat with i from 1 to 12 
      if MyMonth = item i of MonatsListe then 
         set MyMonthNumber to text -2 thru -1 of ("0" & i) 
         exit repeat 
      end if 
   end repeat 
end MonatsZahl