Bilder beim Import von externer Platte in Datumsordner...

[alexis_sorbas]

Moin,

Ich suche ein Programm/Aktion/AppleScript (für MacOSX)
- das auf der Quellplatte alle Ordner incl. Unterordnern durchsucht,
- alle gewünschten Dateien mit einstellbarer Endung, - z.B. .TIF -
- auf die Zielplatte kopiert, dabei die ursprüngliche Ordnerstruktur ignoriert und
- im Zielverzeichnis die Dateien in Ordner mit Erstellungsdatum einsortiert.

Die Bridge kann das zwar, aber nur von Kameras bzw. entsprechenden
Geräten, nicht von einer beliebigen Platte und auch nicht mit tieferen Ordnerstrukturen.
Es sei denn, es kennt jemand ein Script für die Bridge, die das kann...
Oder einen Trick

Capture One kann zwar aus beliebigen Ordnern mit Unterordnern importieren,
aber leider nicht automatisch in Tagesordner sortieren.

Mit Applescript geht das, habe aber aktuell keine Zeit, da was selber zu schreiben.
Das Problem kann ja nicht so neu sein, vielleicht hat ja schon jemand
ein AppleScript/ eine Aktion dafür gebaut und würde mir die zur Verfügung stellen
Oder vielleicht gibt es das ja schon, nur bin ich zu doof das zu googeln...

[alexis_sorbas]

... ok, ok...

Ist wohl diffiziler, als ich dachte...

Zumindest ein "Rumpfscript" habe ich gefunden,
das ignorieren der Ordnerstruktur kann der Finder schon allein,
bleibt nur noch das erstellen der "Aufnahme Datums- TAGES- Ordner".

Dieses Script macht nur Monatsordner,
ausserdem importiert es in die iPhoto-Library.
Aber immerhin...

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