-- Forcer la date de création des photos à celle de l'EXIF, si présent.
do shell script "echo Fichiers non traités > ~/Desktop/'set creation date.log.txt' ; echo ' '   >> ~/Desktop/'set creation date.log.txt'"
createList(choose folder with prompt "Sélectionnez le dossier contenant les images à traiter")
on createList(item_list)
    set the the_items to list folder item_list without invisibles
    set item_list to item_list as string
    repeat with the_item in the_items
        set the_item_alias to (item_list & the_item) as alias
        if folder of (info for the_item_alias) then
            my createList(the_item_alias)
        else
            tell application "Finder"
                set nom_script to "echo " & POSIX path of the_item_alias & " >> ~/Desktop/'set creation date.log.txt'"
                try
                    set datephoto to do shell script "sips -g creation " & quoted form of POSIX path of the_item_alias
                on error
                    set datephoto to ""
                end try
                if datephoto ends with "<nil>" or length of datephoto ≤ 20 then
                    try
                        do shell script nom_script
                    end try
                else
                    set DateOriginale to text -20 thru -1 of datephoto
                    set ladate to text 1 thru -16 of DateOriginale
                    set ladate to ladate & text 7 thru -13 of DateOriginale
                    set ladate to ladate & text 10 thru -10 of DateOriginale
                    set ladate to ladate & text 13 thru -7 of DateOriginale
                    set ladate to ladate & text 16 thru -4 of DateOriginale
                    set ladate to ladate & "." & text 19 thru -1 of DateOriginale
                    -- display dialog ladate
                    try
                        do shell script "touch -t " & ladate & " " & quoted form of POSIX path of the_item_alias
                    on error
                        try
                            do shell script nom_script
                        end try
                    end try
                end if
            end tell
        end if
    end repeat
end createList
tell application "Finder"
    (display dialog ("waouou ... Ca y est c'est fait !") buttons {"Salut !"})
end tell