Script - Renommer ue photo en fonction de de la date

Script - Renommer ue photo en fonction de de la date - Divers - Programmation

Marsh Posté le 16-01-2008 à 13:23:33    

Bonjour,
 
J'ai 2500 photos d'un voyage aux usa.
Ces photos ont été prises par deux appareils dont les horloges avaient 1h de décalage.
 
Est-il possible de faire un script qui renomme les fichiers en fonction de l'appareil et de la date de prise du cliché ?
 
Le but étant donc d'avoir mes 2500 photos classées dans l'ordre chronologique.
 
Merci d'avance.


---------------
Flick r
Reply

Marsh Posté le 16-01-2008 à 13:23:33   

Reply

Marsh Posté le 16-01-2008 à 18:19:56    

Voici un programme en VBS qui fait cela.

' ===========================================================
'
' Programme qui renomme les fichiers d'un répertoire
' en ajoutant la date et l'heure dans le nom
'
' ==========================================================
Set fso = CreateObject("Scripting.FileSystemObject" )
Set f = fso.GetFolder("c:\my_folder" )
Set fc = f.Files
For Each f1 in fc
   If (fso.GetExtensionName(f1) = "jpg" ) Then
      d = f1.DateCreated  
      dd=day(d)
      mm=month(d)
      yy=Year(d)
      hh=Hour(d)
      mi=Minute(d)
      ss=Second(d)
      name_yymmddhhmmss = fso.GetBaseName(f1) _
                         & yy & mm & dd & "_" & hh & mi & ss _
                         & "." & fso.GetExtensionName(f1)
      ' Wscript.Echo name_yymmddhhmmss
      fso.MoveFile f1.name, name_yymmddhhmmss
   End If
Next

Copier ces lignes dans un fichier que l'on nommera , par exemple, renphoto.vbs, et que l'on mettra dans le répertoire des photos.
Cliquer sur renphoto.vbs pour le lancer.
N.B. VBS est installé en standard avec IE depuis Windows 98.
 
Edit : Ce programme rajoute l'heure, mais ne fait pas la distinction entre les deux appareils.


Message édité par olivthill le 16-01-2008 à 18:21:08
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed