Bonjour,

je souhaiterai copier des fichiers de + de 30 jours d'un dossier "Source" à un autre "Destination"

Je rappelle que je débute en VBS.

Merci d'avance pour votre aide et compréhension

Mon code:

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
25
26
27
28
29
30
31
32
33
Dim Source
Dim Destination
Dim objFSO, oShell,Folder 
 
Source = "E:\Program\projets\Traitement\Etude\DossierA"
Destination = "S:\Traitement\Etude\DossierA\Safe"
 
 
AgeMaximalFichiers = 30
 
DateSysteme = Date
 
 
'--------------------------------------------------------------
'Copie des fichiers de + de 30 jours DossierA n-1 dans le dossier Safe
'--------------------------------------------------------------
 
Sub Copie des fichiers
 
Set Folder = fso.Getfolder(Source)
For Each File In Folder.Files
   If (DateDiff("d", File.DateCreated, DateSysteme) > AgeMaximalFichiers) Then
		If File.Attributes And 1 Then File.Attributes = File.Attributes - 1
        File.Copy DestDir(Destination)
	Else
 
End If
 
End Sub
 
'Traitement de la fonction
 
Copie des fichiers