Exécution de mon script deux fois
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:
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 |