Slt
je travaille sous XP, mais ça ne devrait pas poser de problème

dim FSO: set FSO=CreateObject("Scripting.FileSystemObject")

today=Cstr(day(date))
tomonth=Cstr(month(date))
toyear=Cstr(year(date))
aujourdhui=today+"_"+tomonth+"_"+toyear
newlog="toto"+"_"+aujourdhui+".log"
msgbox newlog
set totolog=FSO.opentextfile("toto.log",1)
set totologtoday=FSO.opentextfile(newlog,8,true)

do while not totolog.atendofstream
theline = totolog.readline
totologtoday.writeline(theline)
loop
totolog.close
totologtoday.close
msgbox "copie de toto.log en toto" & aujourdhui & ".log faite.",64,"~= C3 =~"

Bonjour,

Tu peux aussi faire un script qui fait de la copie de fichier en changeant le nom

Dim Aujourdhui
Dim Date_Aujour
Dim Jour
Dim Mois
Dim Annee
Dim FSCopie
Dim Chemin

'Détermination de la date du jour

Aujourdhui = date
Jour = day(Aujourdhui)
Mois = Month(Aujourdhui)
Annee = year(Aujourdhui)

if Jour < 10 Then
Jour = "0" & Jour
End If
If Mois < 10 Then
Mois = "0" & Mois
End If

Date_Aujour = Jour & "-" & Mois & "-" & Annee

'Copie du fichier
Chemin = "c:\..." 'chemin ou tu as le fichier (ou, si ton script est dans le même répertoire que ton fichier tu peux utiliser une fonction de récupération du lieu d'exécution du script)

Set FSCopie = CreateObject("Scripting.FileSystemObject")

FSCopie.CopyFile Chemin & "\toto.log" , Lect & "\toto_" & Date_Aujour & ".log", true

J'espère que ca peut t'aider !