-- CRÉATION DE DOSSIERS DATÉS
-- © Légal Jean Louis
-- Version 0.0.1 α Testé avec Léopard et Snow Léopard
-- Créé le 1 Juillet 2012
-- Trois type de noms de dossiers ($ = affichage US, = affichage Français, où pour avoir l'affichage en Français avec les noms des mois) un seul choix
-- ######################## \\\ VOS CHOIX /// ######################################
-- Choix du nombre de dossiers à créer
set nombre_Dossiers to text returned of (display dialog "Combien de dossiers datés?" default answer "2" buttons {"Annuler", "Ok"} default button 2 with title "VOTRE CHOIX" with icon note giving up after 20)
set chemin to choose folder -- Chemin du dossier de réception
-- set mois_Fr to {"Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre"} --
set compteur to 0 -- Initialisation du compteur de dossiers créés
-- ######################## \\\ DATES DES DOSSIERS /// ###############################
tell application "Finder"
-- Commence par 'from 0' pour créer le dossier daté d'aujurd'hui (- 1 pour prendre en compte le 0 dans le choix du nombre de dossiers à créer)
repeat with i from 0 to nombre_Dossiers - 1
set {year:an, day:jour} to (current date) + (i * days) -- Numéros de l'Annèe et du Jour de la date trouvée
set mois to month of ((current date) + (i * days)) as integer -- Pour remplacer le nom du Mois lue par son numéro de la date trouvée
-- set nom_Mois_Fr to item mois of mois_Fr -- Nom du mois en Français
set nom_dossier to an & "-" & mois & "-" & jour as string -- Nom du dossier à créer US $
-- set nom_dossier to jour & "-" & mois & "-" & an as string -- Nom du dossier à créer Fr
-- set nom_dossier to jour & "-" & nom_Mois_Fr & "-" & an as string -- Nom du dossier à créer avec le nom du mois en Français
-- ################### \\\ CRÉATIONS DES DOSSIERS DATÉS /// #######################
-- Besoin de l'application Finder
if not (exists folder nom_dossier in chemin) then -- Contrôle si ce dossier n'existe pas dans le dossier sélectionné
make new folder in folder chemin with properties {name:(nom_dossier as string)} -- Alors le créer
set compteur to compteur + 1 -- Compteur des dossiers créés
end if
end repeat
end tell
-- ######################## \\\ ALERTE DE FIN DE TRAVAIL /// ############################
display dialog "Dossiers créés: " & compteur & " sur " & nombre_Dossiers buttons {"Ok"} default button 1 with title "TERMINÉ" giving up after 5
-- ######################## \\\ FIN DU CODE /// #####################################