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
