Répondre à la discussion

Message

<blockquote data-quote="zeltron54" data-source="post: 13902717" data-attributes="member: 101652">OK !Alors essai ce script et dis moi si cela te convient.[CODE]property origine : &quot;&quot;tell application &quot;Finder&quot;&nbsp; &nbsp; &nbsp; &nbsp; set chemin to choose folder with prompt &quot;Sélectionnez le dossier contenant les fichiers à trier&quot;&nbsp; &nbsp; set origine to chemin as string&nbsp; &nbsp; my inspecter(chemin)end tellon inspecter(un_dossier)&nbsp; &nbsp; tell application &quot;Finder&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set les_fichiers to files of un_dossier&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; repeat with chaque_fichier in les_fichiers&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set nom to name of chaque_fichier --récupère le nom du fichier&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set sauv to AppleScript's text item delimiters --sauvegarder la variable delimiteur&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set AppleScript's text item delimiters to {&quot;.&quot;} --récupère la partie avant le dernier &quot;.&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set elements to text items of nom&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set nomcourt to (items 1 thru -2 of elements) as string&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set lextension to name extension of chaque_fichier -- ou (document file nom in cible)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set chemindossier to container of chaque_fichier ---- idem cible as string&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set AppleScript's text item delimiters to sauv --restaurer la variable delimiteur&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set xx to chemindossier as string&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set sauv to AppleScript's text item delimiters --sauvegarder la variable delimiteur&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set AppleScript's text item delimiters to {&quot;:&quot;} --récupère la partie avant le dernier &quot;.&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set dd to text item -2 of xx&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set AppleScript's text item delimiters to sauv --restaurer la variable delimiteur&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set name of chaque_fichier to dd &amp; &quot;.&quot; &amp; lextension&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set newfich to xx &amp; dd &amp; &quot;.&quot; &amp; lextension&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; --deplace dans dossier origine&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; move newfich to origine&nbsp; &nbsp; &nbsp; &nbsp; end repeat&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; -- traitement des dossiers :&nbsp; &nbsp; &nbsp; &nbsp; set les_dossiers to folders of un_dossier&nbsp; &nbsp; &nbsp; &nbsp; repeat with chaque_dossier in les_dossiers&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; my inspecter(chaque_dossier)&nbsp; &nbsp; &nbsp; &nbsp; end repeat&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end tellend inspectertell application &quot;Finder&quot;&nbsp; &nbsp; (display dialog (&quot;waouou ... Ca y est c'est fait !&quot;) buttons {&quot;Salut !&quot;})end tell[/CODE]</blockquote>

[QUOTE="zeltron54, post: 13902717, member: 101652"] OK ! Alors essai ce script et dis moi si cela te convient. [CODE]property origine : "" tell application "Finder" set chemin to choose folder with prompt "Sélectionnez le dossier contenant les fichiers à trier" set origine to chemin as string my inspecter(chemin) end tell on inspecter(un_dossier) tell application "Finder" set les_fichiers to files of un_dossier repeat with chaque_fichier in les_fichiers set nom to name of chaque_fichier --récupère le nom du fichier set sauv to AppleScript's text item delimiters --sauvegarder la variable delimiteur set AppleScript's text item delimiters to {"."} --récupère la partie avant le dernier "." set elements to text items of nom set nomcourt to (items 1 thru -2 of elements) as string set lextension to name extension of chaque_fichier -- ou (document file nom in cible) set chemindossier to container of chaque_fichier ---- idem cible as string set AppleScript's text item delimiters to sauv --restaurer la variable delimiteur set xx to chemindossier as string set sauv to AppleScript's text item delimiters --sauvegarder la variable delimiteur set AppleScript's text item delimiters to {":"} --récupère la partie avant le dernier "." set dd to text item -2 of xx set AppleScript's text item delimiters to sauv --restaurer la variable delimiteur set name of chaque_fichier to dd & "." & lextension set newfich to xx & dd & "." & lextension --deplace dans dossier origine move newfich to origine end repeat -- traitement des dossiers : set les_dossiers to folders of un_dossier repeat with chaque_dossier in les_dossiers my inspecter(chaque_dossier) end repeat end tell end inspecter tell application "Finder" (display dialog ("waouou ... Ca y est c'est fait !") buttons {"Salut !"}) end tell[/CODE] [/QUOTE]

Vérification

Rechercher

Rechercher

Répondre à la discussion