Trier des photos Portraits et Paysages ?, Possible avec Apple Script ??

[MacMame]

Bonjour,


J'ai un dossier avec plus de 5000 photos à trier, je dois extraire les photos au format portrait dans un répertoire "portrait" et les photos "paysage" dans un répertoire "paysage", bref est-ce possible ?, il faudrait par exemple que le script puisse calculer si la hauteur et inférieur à la largeur de l'image = Paysage et si la hauteur et supérieur à la largeur = portrait..

Ah moin qu'il soit possible de faire cela sous Photoshop, mais rien n'y fait avec l'option adapter l'image....

Merci pour votre aide.

[MacMame]

Salut !


Houla ! je suis largué l'action8 de mon ancien fichier je le colle ou ? dans celui que tu m'a remis ?



sinon si j’exécute en double cliquant dessus (enregitrer en application) et que je met une image dans "PHOTOS" rien ne ce passe.

Code

property ajout : {}
property sous_dossiers : {}
property masterFolder : ""
property dossier_a_traiter : ""

on idle
    
    
    -- collection Debut
    
    set dossier_a_traiter to "/Volumes/Rack-Pro/CANON/★AUTOMATOR/collection/PHOTOS" --****
    tell my rechercheFichiers(dossier_a_traiter) to if it is not "" then my action7(it) -- si des éléments sont trouvés, execute la fonction action7
    
-- cette ligne qui finit par /PHOTOS-PAYSAGES" + les deux lignes suivantes ont été supprimées --****-

    set dossier_a_traiter to "/Volumes/Rack-Pro/CANON/★AUTOMATOR/collection/PIC"
    tell my rechercheFichiers(dossier_a_traiter) to if it is not "" then my action9(it) -- si des éléments sont trouvés, execute la fonction action9
    
    -- collection Fin
    
    
    return 30 -- 20 secondes avant la prochaine execution du idle
end idle

on quit
    continue quit
end quit


-- collection PORTRAIT et PAYSAGE DEBUT
on action7(tFiles)
    script ob -- seulement les actions Photoshop
        on PSD_process(this_path)
            set tCollection to "collection-paysage" --****+
            tell application "Adobe Photoshop CS5"
                open alias this_path showing dialogs never
                tell the current document
                    if width < height then set tCollection to "collection-portrait" -- format Portrait--****+
                    do action "MINI" from tCollection--****
                    do action "MED" from tCollection--****
                    do action "MAXI" from tCollection--****
                    do action "PRM" from tCollection--****
                    close saving no
                end tell
            end tell
        end PSD_process
    end script
    
    set ajout to {"_mini", "_med", "_maxi", "_prm"} -- selon l'ordre des dossiers (dans la  ligne suivante)
    set sous_dossiers to {"MINI", "MED", "MAXI", "PRM"}
    set masterFolder to "/Users/monmac/Pictures/RESULTAT" -- le dossier parent des sous dossier "MINI", "MED", "MAXI", "PRM"
    set dossiersDimages to {}
    repeat with f in tFiles -- boucle qui ne traite que les fichiers
        set this_path to (POSIX file f) as string
        if not my isDownloading(this_path as alias) then -- le fichier ou dossier ne se télécharge pas
            if ((alias this_path) as string) ends with ":" then -- c'est un dossier
                set end of dossiersDimages to contents of f -- on met le chemin du dossier dans une liste
            else
                ob's PSD_process(this_path) -- traite le fichier dans Photoshop
                my deplace(f) -- déplace le fichier dans le sous dossier "tempo"
            end if
        end if
    end repeat
    my renomme()
    set d to ""
    my deplace_images_creer("/Users/monmac/Pictures/RESULTAT/★ REGROUPEMENT/collection_recup", d) --<-- mettre ici le chemin du dossier de destination
    
    repeat with d in dossiersDimages --  boucle qui traite les dossiers d'images
        set tFiles to do shell script "/usr/bin/find " & (quoted form of d) & "  -maxdepth 1 -type f  \\! -name '.*'"
        if tFiles is not "" then
            repeat with f in (get paragraphs of tFiles)
                ob's PSD_process((POSIX file f) as string) -- traite le fichier dans Photoshop
            end repeat
            my deplace(d) -- déplace le dossier dans le sous dossier "tempo"
            my renomme()
            my deplace_images_creer("/Users/monmac/Pictures/RESULTAT/★ REGROUPEMENT/collection_recup", d) --<-- mettre ici le chemin du dossier de destination
        end if
    end repeat
end action7

-- collection PORTRAIT et PAYSAGE  FIN