lu'
Si tu veu juste un baqueup de dossiers ,pa rex les télechargé du jour ou le taff de la semaine tu copie le texte ds le blocnote et tu le met sur le burot en metant les chemin/dossier que tu veu (cé explqué de dans) et tu le nomme par ex sauvegar.vbs; un clic dessu avant de fermé le Pc et c'es Ok
'*************************************************************
'* Copie de sécurité de documents *
'* DOCmémo - www.docmemo.com *
'*************************************************************
'* Personnalisation : *
'* - Verbose *
'* - l'instruction Copie (premier argument : dossier source, *
'* second argument : le dossier de destinataion) *
'*************************************************************
Option explicit
Const Verbose=false 'Pour éliminer les messages de contrôle, remplacez true par false
Dim fso,t
t=Now
Set fso=wscript.CreateObject("Scripting.FileSystemObject")
' Répéter l'instruction Copie pour chaque dossier d'origine
' Le script traite automatiquement les sous-dossiers
Copie "C:\Download","k:\Download" 'Indiquez la source et la destinataion
Set fso=Nothing
' Wscript.Echo "Durée de la copie : " & cdate(Now-t)
Sub Copie(RepSource,RepDest)
Dim r,f,S,D,z
Set r=fso.GetFolder(RepSource)
If Verbose Then WScript.Echo "Traitement du dossier " & RepDest
If Not fso.FolderExists(RepDest) Then fso.CreateFolder(RepDest)
For each f in r.Files
S=fso.BuildPath(RepSource,f.name)
D=fso.BuildPath(RepDest,f.name)
If fso.FileExists(D) Then
Set z=fso.GetFile(D)
If z.Size<>f.Size Or z.DateLastModified<>f.DateLastModified Then
If Verbose Then Wscript.Echo "Copie de " & D
f.Copy D,True
End If
Set z=Nothing
Else
If Verbose Then Wscript.Echo "Copie de " & D
On error resume next
f.Copy D
If Err.Number<>0 Then Wscript.echo "Erreur : " & S
on Error Goto 0
End If
Next
For each f in r.SubFolders
S=fso.BuildPath(RepSource,f.name)
D=fso.BuildPath(RepDest,f.name)
Copie S,D
Next
Set r=Nothing
End Sub
voila jyeu noel Abtot