Discussion :

[popofpopof]

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

[ced600]

Plutot que de faire une datediff dans ton foreach, remplis un tableau à deux dimension qui contient le nom du fichier et la date de modification.
Remplis ce tableau de façon trier.

Si tu ne sais pas trop comment remplir de façon trier je t'explique rapidement.
Pour chaque fichier de ta boucle, tu parcours ton tableau et tu testes si ton fichier est plus vieux que les éléments de ton tableau. Comme ces éléments sont déjà trié, lorsque tu trouves que le fichier que tu veux insérer est plus récent que un des fichiers du tableau, tu l'insère avant cet éléments du tableau.
BOn ce n'est aps le meilleu tri possible, mais tu peux trouver des exemples d'autre tri sur le net.

Une fois ton tableau trier et remplis, tu peux le parcourir et supprimer tous les fichiers qui sont après la 6eme casse du tableau.

Une dernière chose, les liste et les collections peuvent être plus adapté au tri, moins chaint en tout cas. Je pense qu'ils ont des fonction d'insertion à un index précis mais je ne suis plus sur.

[SfJ5Rpw8]

alors c'est :

supprimer les 6 plus ancien fichier

où

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

ben dans le deuxième cas cela n'as pas l'air bien compliqué... tu parcours les 7 fichiers ..(grâce à ta boucle ..) et tu mémorise le plus ancien... que tu peu ensuite effacer...

[ced600]

Ha il n'y aurait que 7 fichier ?
C'est vrai qu'un défaut dans l'expression du sujet ne permet pas de comprendre clairement le problème.
S'il n'y a que 7 fichiers, que tu souhaites en supprimer 6, ou 1, le mieux est de rechercher ce fichier particulier et de le supprimer ou de supprimer les autres.

[popofpopof]

il y a 7 fichier et je veux supprimer le plus ancien des 7 fichier puis je copirai le nouveau. Donc il y a toujours 7 fichier dans le dossier

ben dans le deuxième cas cela n'as pas l'air bien compliqué... tu parcours les 7 fichiers ..(grâce à ta boucle ..) et tu mémorise le plus ancien... que tu peu ensuite effacer...

je ne sais comment faire sa ? avec quel fonction?? peux tu m'explique stp

merci

[ced600]

As tu compris le code que tu nous a posté ?

[RadPAT]

Salut,

tu retrouveras ce même type de demande ici (sauf que c'est 15 jours !!)

http://www.developpez.net/forums/arc.../t-209141.html

et en plus c'est déjà CED600 qui réponds (incontournable )

A++

[SfJ5Rpw8]

.. tu parcours les 7 fichiers ..(grâce à ta boucle ..) et tu
mémorise le plus ancien... que tu peu ensuite effacer...

bon je reviens la dessus en espérant ne pas trop t'embrouiller... (essai de comprendre le 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
 
Dim Fso
Dim Directory 
Dim Modified
Dim Files 
Set Fso = CreateObject("Scripting.FileSystemObject" )
Set Directory = Fso.GetFolder(".\tmp" )
Set Files = Directory.Files 
Dim fichierLePlusVieux ' Variable utilisée pour mémoriser le fichier le plus vieux .. (celui dont la date de la derniére modification est la plus petite)
 
if files.count >= 7 Then 'il faut qu'il y ait au moins 7 fichiers pour pouvoir effacer le 7°
	For Each f in files 
		'Si aucun fichier mémorisé mémorise le fichier courant..
		if  IsEmpty(fichierLePlusVieux) then set fichierLePlusVieux = f
		'si date du fichier parcouru dans boucle inférieure au fichier mémorisé, mémorise ce fichier
		if f.DateLastModified < fichierLePlusVieux.DateLastModified Then set fichierLePlusVieux = f
	next
	msgbox "Le fichier à effacer " & fichierLePlusVieux.Name & " En utilisant la Cde : fichierLePlusVieux.Delete "
end if

[popofpopof]

Merci bcp BBIL sa marche super bien comme je voulai et j'ai même réusi a l'adapte a mon script

donc sujet résolu et que cela permete a d'autre de trouve des solutions...

[ced600]

j'aurai voulu savoir a quoi correspond les valeurs suivante dans ton script : 18, 6, 37, 36

Bah comme RadPAT fait un peu de bidouille il découpe des chaines de caractères, donc ces chiffres corrspondent à des position de caractères
Donc faudrait pas y toucher
Mais le script de bbil est mieux, ce n'est pas de la bidouille

Attention ce qui suit n'est PAS méchant, c'est juste un CONSEIL :
Je te conseil d'apprendre les bases du développement grâce à des cours que tu peut trouver sur le net, en effet j'ai l'impression qu'il te manque une logique de développeur, peut être commence tu seulement
Ou alors ce n'est pas ton métier et tu avais juste besoin d'un script, cela arrive aussi des fois