[VBScript] copie de fichier
Bonjour,
j'aimerais avoir de l'aide afin de créer un un script (VB) qui copiera un fichier toto.log sous le nom toto_datedujour.log.
A chaque exécution du script, je veux une nouvelle copie du fichier, sans écraser la précédente. Le script sera exécuté sous win2003.
Merci.
j'aimerais avoir de l'aide afin de créer un un script (VB) qui copiera un fichier toto.log sous le nom toto_datedujour.log.
A chaque exécution du script, je veux une nouvelle copie du fichier, sans écraser la précédente. Le script sera exécuté sous win2003.
Merci.
2 réponses
-
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 ! -
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 =~"
une copie par jour...
:o)
