Trier des photos avec Applescript, Portrait ou Paysage

[MacMame]

Bonjour,


Je possède un dossier images/ dans lequelle il y à des des sous dossier sur plus de 10 niveaux, dans presque chaque sous dossier, il y à des photos; je souhaiterais développer un applescript qui me scan le dossier image (en recursive donc) et qui affecte par exemple un tag vert pour les photos portrait et un tag rouge pour les photos paysage.

Vous pensez que c'est possible ? tout en gardant bien sur les sous-sous dossier à leurs place.

Merci pour votre aide.

[MacMame]

Tu a raison TEDDY, je suis nul ! c'est corrigé

Je n'est donc plus de message d'erreur, par contre, j'ai essayé de re-bidouiller mon ancien script, comme ci-dessous, mais rien ne bouge.... je pense que c'est le code en premier qui n'est pas bon (rechercheFichier), le code pour "écouter" le dossier source, il n'est pas adapté.... j'ai essayé d'adapter le code de ZELTRON mais il ne reconnait pas la variable Inspecter.


voici mon code remis à jours:

Je me demande même si il est capable de scanner les dossiers en recursive, car je possède pas mal de sous-sous-sous-dossier.

Code

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

on rechercheFichiers(d) -- recherche fichiers et dossiers
    set tFiles to do shell script "/usr/bin/find " & (quoted form of d) & "  -maxdepth 10 -mindepth 1 \\! -name '.*' \\! -name 'tempo'"
    if tFiles is not "" then return paragraphs of tFiles
    return ""
end rechercheFichiers

on idle
    
    
    
    set dossier_a_traiter to "/Volumes/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
    
end idle

on action7(tFiles)
    script ob -- seulement les actions Photoshop
        on PSD_process(this_path)
            set tCollection to "photos-paysage" --****+
            tell application "Adobe Photoshop CC 2015.5"
                open alias this_path showing dialogs never
                tell the current document
                    if width < height then set tCollection to "photos-portrait" -- format Portrait--****+
                    do action "REDIM" from tCollection --****
                    
                    close saving no
                end tell
            end tell
        end PSD_process
    end script
    
    
end action7

Ce message a été modifié par MacMame - 20 Apr 2018, 16:14.