Deplacer les fichiers avec AgeMaximalFichier

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:

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

:salut:
Dans la :faq: Comment déplacer,renommer un fichier ?

J'ai résolu mon pb

Merci beaucoup :ccool: