bonjout

dans un dossier on réalise une sauvegarde du disque.

Je souhaite dans ce dossier garde les 6 derniere sauvegarde et efface la sauvegarde la plus ancienne (dans la 7eme la plus vielle)

pour un autre script j'ai utilise un script qui est le suivant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Dim Fso
Dim Directory 
Dim Modified
Dim Files 
Set Fso = CreateObject("Scripting.FileSystemObject" )
Set Directory = Fso.GetFolder("D:\Sauve base journaliere" )
Set Files = Directory.Files 
 
For Each Modified in Files
If DateDiff("D", Modified.DateLastModified, Now) > 18 Then Modified.Delete
Next
je pense le modifier comme sa :
mais je ne sais comment lui dire efface le plus ancien
qui peux m'aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Dim Fso
Dim Directory 
Dim Modified
Dim Files 
Set Fso = CreateObject("Scripting.FileSystemObject" )
Set Directory = Fso.GetFolder("D:\Sauve base journaliere" )
Set Files = Directory.Files 
 
For Each Modified in Files
If (garde les 6 dernier sauvegarde et efface la plus vielle donc la 7eme) > 6 Then Modified.Delete
Next