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
Partager