Renommer les images d’un dossier avec ses données exifs

-- Set the property to the chosen EXIF data
set theProperty to choose from list {"Date Time Original", "Make", "Model"} with prompt "Choose the EXIF data to use for renaming:"

-- Check if a property was chosen
if theProperty is not false then
    -- Set the property to the first item in the list (since choose from list returns a list)
    set theProperty to item 1 of theProperty
    
    -- Set the folder path
    set folderPath to (choose folder with prompt "Choose the folder containing the photos:") as text
    
    -- Get the list of files in the folder
    tell application "Finder"
        set fileList to every file of folder folderPath
    end tell
    
    -- Loop through each file in the list
    repeat with aFile in fileList
        -- Get the file path
        set filePath to aFile as text
        
        -- Get the EXIF data for the chosen property
        set exifData to do shell script "mdls -raw -name kMDItem" & theProperty & " " & quoted form of POSIX path of filePath
        
        -- Check if EXIF data was found
        if exifData is not "" then
            -- Rename the file using the EXIF data
            tell application "Finder"
                set name of aFile to exifData & "." & name extension of aFile
            end tell
        end if
    end repeat
end if