A voir également:
- [VBScript] copie de fichier
- Fichier rar - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Copie cachée - Guide
- Comment réduire la taille d'un fichier - Guide
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 !
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 !
carbon3
Messages postés
470
Date d'inscription
mercredi 20 février 2008
Statut
Membre
Dernière intervention
6 janvier 2013
73
21 févr. 2008 à 20:34
21 févr. 2008 à 20:34
slt
je travaille sous XP, mais ça ne devrait pas poser de problème
une copie par jour...
:o)
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)
