Bonjour Xirix,
Je te joins le script qui permet de créer tes dossiers y compris dans les sous dossiers, (si comme moi tu n'aimes pas trop le terminal !
à Macomaniac).
Il fonctionne comme le premier (sélection du dossier source, puis du dossier destination). Copier coller du script ci-dessous.
Tu n'as plus que l'embarras du choix...
-- Creer des dossiers vides du nom des dossiers sources et sous dossiers dans le dossier destination
tell application "Finder"
set chemin to choose folder with prompt "Sélectionnez le dossier contenant les dossiers à dupliquer"
set origine to chemin as string
set destination to choose folder with prompt "Sélectionnez le dossier de destination"
my inspecter(chemin, destination, origine)
end tell
on inspecter(un_dossier, destination, origine)
set dest to destination as string
tell application "Finder"
-- traitement des dossiers :
set les_dossiers to folders of un_dossier
repeat with chaque_dossier in les_dossiers
-- traitement d'un dossier
set ledossier to chaque_dossier as string --chemin en texte
set nom to name of chaque_dossier -- récupère le nom du dossier en cours
set sauv to AppleScript's text item delimiters --sauvegarder la variable delimiteur
set AppleScript's text item delimiters to {":"}
set ledossier2 to text items 1 thru -2 of ledossier as string --enleve les : de fin
set dest2 to text items 1 thru -2 of dest as string --enleve les : de fin
set AppleScript's text item delimiters to sauv --restaurer la variable delimiteur
set sauv to AppleScript's text item delimiters --sauvegarder la variable delimiteur
set AppleScript's text item delimiters to {origine}
set fin to text item -1 of ledossier2 as string --récupère l arborecence dans le dossier original
set AppleScript's text item delimiters to sauv --restaurer la variable delimiteur
set sauv to AppleScript's text item delimiters --sauvegarder la variable delimiteur
set AppleScript's text item delimiters to {nom}
set fin2 to text item 1 of fin as string -- arborescence moins le nom
set AppleScript's text item delimiters to sauv --restaurer la variable delimiteur
set dest2 to dest2 & ":" & fin2 -- le chemin complet sans le nom
tell application "Finder"
make new folder at dest2 with properties {name:nom} -- crée le dossier
end tell
end repeat
-- traitement des dossiers :
set les_dossiers to folders of un_dossier
repeat with chaque_dossier in les_dossiers
-- traitement d'un dossier
my inspecter(chaque_dossier, destination, origine)
end repeat
end tell
end inspecter
tell application "Finder"
(display dialog ("waouou ... Ca y est c'est fait !") buttons {"Salut !"})
end tell
