Bonjour à tous,
je souhaiterais savoir comment modifier mon script de façon à ne plus copier mais déplacer mes fichiers en fonction de leurs dates.
Merci à vous
Cordialement
section du script qui copie:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 '----------------------------------------------------------------------- 'Copie des fichiers de + de 30 jours Source dans le dossier Test_Temp '----------------------------------------------------------------------- Source = "E:\projets\Paris" Destination = "S:\Historique\Archive_"& MyDate &".zip" Safe = "S:\Historique\Test_Temp" Set objFSO = CreateObject("Scripting.FileSystemObject") AgeMaximalFichiers = 30 DateSysteme = Date Sub Copie_des_fichiers() msglog "0","0000","---Debut:------- Copie des fichiers dans le Dossier Test_temp pour le centre " & centre Set Fold = objfso.Getfolder(Source) msglog "0","0000","---Fin:--------- Copie des fichiers dans le Dossier Test_temp pour le centre " & centre For Each Fich In Fold.Files If (DateDiff("d", Fich.DateLastModified, DateSysteme ) > AgeMaximalFichiers) Then Fich.Copy Test & "\" , True End If Next End Sub
Partager