on adding folder items to Mon_Dossier after receiving tous_les_fichiers
tell application "Finder"
repeat with liste_fichiers in tous_les_fichiers
set nom_fichier to name of liste_fichiers
set Mon_Dossier to Mon_Dossier as string
set compteur to Mon_Dossier & "compteur.txt" -- recupere chemin du fichier compteur
set sauv to AppleScript's text item delimiters --sauvegarder la variable delimiteur
set AppleScript's text item delimiters to {":"}
set nom to text item -2 of Mon_Dossier
set AppleScript's text item delimiters to sauv --restaurer la variable delimiteur
--verifie si fichier compteur existe sinon le crée
if compteur exists then
else
display dialog "Veuillez saisir la partie qui sera avant le numéro pour ce dossier :" default answer "A"
set reponse to text returned of result
set lecompteur to open for access compteur with write permission
write "chemin" & (ASCII character 13) & reponse & (ASCII character 13) & "0" to lecompteur starting at eof
close access lecompteur -- ferme fichier compteur
end if
set lecompteur to open for access compteur with write permission -- ouvre fichier compteur
read lecompteur
set lindex to the result -- recupere le contenu du fichier compteur
set vartoto0 to paragraph 1 of lindex as string -- récupère la ligne 1
set vartoto1 to paragraph 2 of lindex as string -- récupère la ligne 2
set vartoto2 to paragraph 3 of lindex as string --récupère la ligne 3
set ledernier to vartoto0 -- recupere le nom du dernier fichier
set appel to file liste_fichiers as string -- recupere dans appel le nom du nouveau fichier
if appel = Mon_Dossier & "compteur.txt" then -- evite la recursivité du fichier compteur
close access lecompteur
return
end if
delay 0.5
if ledernier = appel then -- compare dernier fichier et nouveau pour éviter l'auto appel du au changement de nom
close access lecompteur -- quitte si auto appel
return
else
set suivant to vartoto2 as integer -- incremente le numéro du compteur
set suivant to vartoto2 + 1 as string
set liste_fichiers to liste_fichiers as string -- change chemin en texte
set newnom to "." & nom_fichier & vartoto1 & suivant
set name of file liste_fichiers to newnom -- change nom du nouveau fichier
set vartoto0 to Mon_Dossier & newnom
set eof lecompteur to 0 -- pour effacer le fichier existant
write vartoto0 & (ASCII character 13) & vartoto1 & (ASCII character 13) & suivant to lecompteur starting at eof -- met à jour le compteur
close access lecompteur -- ferme fichier compteur
end if
end repeat
end tell
end adding folder items toon adding folder items to Mon_Dossier after receiving tous_les_fichiers
tell application "Finder"
repeat with liste_fichiers in tous_les_fichiers
set nom_fichier to name of liste_fichiers
set Mon_Dossier to Mon_Dossier as string
set compteur to Mon_Dossier & "compteur.txt" -- recupere chemin du fichier compteur
set sauv to AppleScript's text item delimiters --sauvegarder la variable delimiteur
set AppleScript's text item delimiters to {":"}
set nom to text item -2 of Mon_Dossier
set AppleScript's text item delimiters to sauv --restaurer la variable delimiteur
--verifie si fichier compteur existe sinon le crée
if compteur exists then
else
display dialog "Veuillez saisir la partie qui sera avant le numéro pour ce dossier :" default answer "A"
set reponse to text returned of result
set lecompteur to open for access compteur with write permission
write "chemin" & (ASCII character 13) & reponse & (ASCII character 13) & "0" to lecompteur starting at eof
close access lecompteur -- ferme fichier compteur
end if
set lecompteur to open for access compteur with write permission -- ouvre fichier compteur
read lecompteur
set lindex to the result -- recupere le contenu du fichier compteur
set vartoto0 to paragraph 1 of lindex as string -- récupère la ligne 1
set vartoto1 to paragraph 2 of lindex as string -- récupère la ligne 2
set vartoto2 to paragraph 3 of lindex as string --récupère la ligne 3
set ledernier to vartoto0 -- recupere le nom du dernier fichier
set appel to file liste_fichiers as string -- recupere dans appel le nom du nouveau fichier
if appel = Mon_Dossier & "compteur.txt" then -- evite la recursivité du fichier compteur
close access lecompteur
return
end if
delay 0.5
if ledernier = appel then -- compare dernier fichier et nouveau pour éviter l'auto appel du au changement de nom
close access lecompteur -- quitte si auto appel
return
else
set suivant to vartoto2 as integer -- incremente le numéro du compteur
set suivant to vartoto2 + 1 as string
set liste_fichiers to liste_fichiers as string -- change chemin en texte
set newnom to vartoto1 & suivant & "." & nom_fichier
set name of file liste_fichiers to newnom -- change nom du nouveau fichier
set vartoto0 to Mon_Dossier & newnom
set eof lecompteur to 0 -- pour effacer le fichier existant
write vartoto0 & (ASCII character 13) & vartoto1 & (ASCII character 13) & suivant to lecompteur starting at eof -- met à jour le compteur
close access lecompteur -- ferme fichier compteur
end if
end repeat
end tell
end adding folder items to
