M
Membre supprimé 1129907
Invité
Je mise sur le 05/08 8h42 (CreationDate du exiftool)Ok pour toi cette vidéo à été faite à quelle date ?
Je mise sur le 05/08 8h42 (CreationDate du exiftool)Ok pour toi cette vidéo à été faite à quelle date ?
[xxxxx@~/Downloads] $ exiftool 2020-01-25\ 16.47.19.mov | grep Date
File Modification Date/Time : 2020:01:25 16:47:19+01:00
File Access Date/Time : 2020:01:25 16:47:19+01:00
File Inode Change Date/Time : 2020:05:10 13:52:49+02:00
Create Date : 2020:01:25 15:47:20
Modify Date : 2020:01:25 15:49:02
Track Create Date : 2020:01:25 15:47:20
Track Modify Date : 2020:01:25 15:49:02
Media Create Date : 2020:01:25 15:47:20
Media Modify Date : 2020:01:25 15:49:02
Creation Date : 2020:01:25 16:47:19+01:00
[xxxxx@~/Downloads] $ exiftool -CreationDate -S -s 2020-01-25\ 16.47.19.mov
2020:01:25 16:47:19+01:00
$ exiftool 2016-07-30\ 19.33.11.cr2 | grep Date
File Modification Date/Time : 2016:07:30 19:33:11+02:00
File Access Date/Time : 2019:08:18 14:03:07+02:00
File Inode Change Date/Time : 2018:12:29 20:54:46+01:00
Modify Date : 2016:07:30 19:33:10
Date/Time Original : 2016:07:30 19:33:10
Create Date : 2016:07:30 19:33:10
Create Date : 2016:07:30 19:33:10.55
Date/Time Original : 2016:07:30 19:33:10.55
Modify Date : 2016:07:30 19:33:10.55
$ exiftool 2020-04-07\ 23.27.22.orf | grep Date
File Modification Date/Time : 2020:04:07 23:27:22+02:00
File Access Date/Time : 2020:04:20 11:46:02+02:00
File Inode Change Date/Time : 2020:04:20 11:46:07+02:00
Modify Date : 2020:04:07 23:27:22
Date/Time Original : 2020:04:07 23:27:22
Create Date : 2020:04:07 23:27:22
Date Time UTC : 0000:00:00 00:00:00
Ok pour toi cette vidéo à été faite à quelle date ?
-- remplace date du fichier par la date exif creation et renomme les fichiers avec la date de création
tell application "Finder"
set Chemin to choose folder with prompt "Sélectionnez le dossier contenant les fichiers à redater"
my inspecter(Chemin)
end tell
on inspecter(un_dossier)
tell application "Finder"
-- traitement des fichiers :
set les_fichiers to files of un_dossier
repeat with chaque_fichier in les_fichiers
-- traitement d'un fichier
set lefichier to chaque_fichier
set AppleScript's text item delimiters to {""}
set nom to name of chaque_fichier --récupère le nom du fichier
set extens to document file nom in un_dossier --recupere l extension du fichier
set lextension to name extension of extens
set sauv to AppleScript's text item delimiters --sauvegarder la variable delimiteur
set AppleScript's text item delimiters to {"."} --récupère la partie avant le dernier "."
set elements to text items of nom
set nomcourt to (items 1 thru -2 of elements) as string
set ancien_nom to nomcourt
set AppleScript's text item delimiters to sauv --restaurer la variable delimiteur
set chaque_fichier to chaque_fichier as string
try
set datephoto to do shell script "/usr/local/bin/exiftool -DateTimeOriginal " & quoted form of POSIX path of chaque_fichier
if datephoto is "" then set datephoto to do shell script "/usr/local/bin/exiftool -CreationDate " & quoted form of POSIX path of chaque_fichier
if datephoto is "" then set datephoto to do shell script "/usr/local/bin/exiftool -CreateDate " & quoted form of POSIX path of chaque_fichier
on error
-- Ecrit un fichier erreur sur le bureau si erreur chargement date
set lelog to open for access ((path to desktop folder as text) & "les erreurs.txt") as text with write permission
write "Le fichier ne contient pas de date : " & chaque_fichier & return to lelog starting at eof
close access lelog
set datephoto to ""
end try
if length of datephoto > 20 then
set x to (length of datephoto) - 33
set DateOriginale to text -x thru -1 of datephoto
set ladate to text 1 thru 5 of DateOriginale
set lannee to ladate
set ladate to ladate & text 7 thru 8 of DateOriginale
set lemois to text 7 thru 8 of DateOriginale
set ladate to ladate & text 10 thru 11 of DateOriginale
set lejour to text 10 thru 11 of DateOriginale
set ladate to ladate & text 13 thru 14 of DateOriginale
set lheure to text 13 thru 14 of DateOriginale
set ladate to ladate & text 16 thru 17 of DateOriginale
set lesminutes to text 16 thru 17 of DateOriginale
set ladate to ladate & "." & text 19 thru 20 of DateOriginale
set lessecondes to text 19 thru 20 of DateOriginale
set newnom to lannee & "-" & lemois & "-" & lejour & " " & lheure & "." & lesminutes & "." & lessecondes
set xxx to ladate as string
if xxx is " 000000000000.00" then
-- Ecrit un fichier erreur sur le bureau si erreur chargement date(=0000...)
set lelog to open for access ((path to desktop folder as text) & "les erreurs.txt") as text with write permission
write "Le fichier ne contient pas de date : " & chaque_fichier & return to lelog starting at eof
close access lelog
else
do shell script "touch -t " & ladate & " " & quoted form of POSIX path of chaque_fichier
end if
end if
set aa to container of lefichier as string
set numero to 1
set lenewnom to newnom
repeat
if exists aa & lenewnom & "." & lextension then
set lenewnom to newnom & "(" & numero & ")"
set numero to numero + 1
else
set newnom to lenewnom
exit repeat
end if
end repeat
set name of lefichier to newnom & "." & lextension
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)
end repeat
end tell
end inspecter
tell application "Finder"
(display dialog ("waouou ... Ca y est c'est fait !") buttons {"Salut !"})
end tell