Tri de photos vidéos

Bonjour,

Noter, pour ceux qui sont allergiques aux utilitaires ou ont besoin de traitements automatiques à suivre éventuellement sur les fichiers en question que la manipulation est possible par un simple batch.

Dans l'exemple suivant, les images à traiter sont dans G:\test où je suppose qu'il n'y a que des fichiers images et qu'ils sont tous à la racine de ce dossier, sans quoi on peut bien sûr adapter la chose.

Le commutateur /o:n fait le tri par ordre croissant de nom, je sais, c'est du texte, mais où par exemple 20220214 est plus grand que 20220109; formellement parlant si les fichiers n'ont pas gardé le nom d'origine du dispositif de prise de vue, la date ne suffit pas puisque, sous Windows, c'est celle de création du fichier sur le support.

Dans ce cas de figure, on peut ajouter au début une ligne avec un utilitaire d'extraction Exif comme par exemple ExifTool; celle-ci par exemple convertit les noms de tous les fichiers image dont le nom est aléatoire sous G:\test en autant de noms horodatés:

CD /D "chemin de exiftool exe"
exiftool "-FileName<CreateDate" -d "%%Y%%m%%d_%%H%%M%%%%S.%%%%e" G:\test

Dans tous les cas (y compris avec un utilitaire), on risque de tomber sur un bec avec des photos émanant d'un smartphone, où les données Exif (dont celle de prise de vue) ne sont pas normalisées et où il faudrait examiner leur nom pour trouver "l'algorithme" correspondant, la question se compliquant si le dossier comporte des photos prises de plusieurs téléphones différents et où également l'affichage Windows par prise de vues est incohérent.

@ECHO OFF
REM LIGNE SUIVANTE SI ACCENTS DANS NOMS FICHIERS
CHCP 65001

DIR G:\test /b /a-d /o:n > G:\tmp.txt

MD G:\Prov
SET Count=0

FOR /F "tokens=1-2 delims=." %%a IN (G:\tmp.txt) DO SET NAME=%%a & SET EXT=%%b & CALL :PROCESS
CALL :CLEAN
DEL G:\tmp.txt
GOTO :EOF

:PROCESS
SET /A "Count=Count+1"
echo %Count%
SET NAME=%NAME:~0,-1%
SET POINT=.
SET SRC=%NAME%%POINT%%EXT%
SET DST=%Count%%POINT%%EXT%
COPY "G:\test\%SRC%" "G:\prov\%DST%"
EXIT /B

:CLEAN
DEL G:\test\*.*
SET COPYCMD=/Y && MOVE /Y G:\prov\*.* G:\test
RD /S /Q G:\prov
EXIT /B

:EOF