Bonjour à Tous,

je travaille sur Windows Server 2003.
Lorsque j’exécute le script une 1er fois c'est parfait.
Mais lorsque je veux le rejouer ça ne passe pas ?
Alors que j'ai supprimé les fichiers dans le dossier Destination ???

Merci à tous pour votre aide



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
Dim Source
 Dim Destination
 Dim objFSO, Fold,Fich 
 
 Source = "C:\Program\projets\Traitement\Etude\DossierA"
Destination = "H:\Traitement\Etude\DossierA\Safe"
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 AgeMaximalFichiers = 30
 
 DateSysteme = Date
 Copie_des_fichiers
'--------------------------------------------------------------
'Copie des fichiers de + de 30 jours DossierA n-1 dans le dossier Safe
'--------------------------------------------------------------
Sub Copie_des_fichiers()
Set Fold = objfso.Getfolder(Source)
 For Each Fich In Fold.Files
   If (DateDiff("d", Fich.DateCreated, DateSysteme) > AgeMaximalFichiers) Then
	 If Fich.Attributes And 1 Then Fich.Attributes = Fich.Attributes - 1
         Fich.Copy Destination & "\" , true 
   End If
 Next
End Sub