Hep me ... script de purgeRésolu

Question

Salut,

Je suis en train de terminer une ptite appli en .Net qui va remplacer un script shell Linux (pas forc&#233;ment ais&#233;...)
Pour finaliser mon appli, il faudrait que sur un r&#233;p de destination contenant des fichiers que je viens de cr&#233;er, je purge le r&#233;pertoire afin de conserver uniquement les X derniers fichiers cr&#233;&#233;s.

Probl&#232;me : je d&#233;bute et je ne vois absolument pas commen faire &#231;a assez simplement !!!

cs_Willi · Accepted Answer

'Lut,

Je viens de te faire vite fait ce que tu souhaites
Etapes:
1)Etabli la liste des fichiers de ton r&#233;pertoire
2)D&#233;claration d'un autre tableau qui contiendra les fichiers tri&#233;s par ordre croissant par date
3)On tri les fichiers et on remplit le nouveau tableau (si tu veux des explications sur le tri demande)
4)On supprime tout les fichiers du nouveau tableau sauf les X derniers fichiers qui correspondent aux X fichiers plus r&#233;cent (classer du plus ancien au plus r&#233;cent)

Voici le code (test&#233; avec les derni&#232;res dates d'&#233;criture, apr&#232;s c'est toi qui vois si tu veux trier par date de cr&#233;ation remplace LastWriteTime par CreationTime !)



'R&#233;cup&#232;re la liste des fichiers
Dim MyFiles 
As 
String() = IO.Directory.GetFiles(
"C:\TonRepertoire", 
"*")



'Si fichiers trouv&#233;s
If 
Not MyFiles 
Is 
Nothing 
Then



   Dim MySortFiles 
As 
New ArrayList()
   MySortFiles.Add(MyFiles(0))



   'Tri les fichiers par date du plus ancien au plus r&#233;cent
   'Les ajoutes dans un nouveau tableau
   For i 
As 
Integer = 1 
To MyFiles.Length - 1

      Dim CurrentDate 
As 
Date = 
New IO.FileInfo(MyFiles(i)).LastWriteTime

      For j 
As 
Integer = 0 
To MySortFiles.Count - 1

         Dim NextDate 
As 
Date = 
New IO.FileInfo(MySortFiles(j)).LastWriteTime



         'Compare les dates du fichier en cours avec les date des fichiers du nouveau tableau
         If 
Date.Compare(CurrentDate, NextDate) < 0 
Then
            MySortFiles.Insert(j, MyFiles(i))

            Exit 
For
         ElseIf j = MySortFiles.Count - 1 
Then
            MySortFiles.Add(MyFiles(i))

            Exit 
For
         End 
If



      Next
   Next


   'Supprime tout les fichiers sauf les x plus r&#233;cents
   'Ici on garde les 5 fichiers les plus r&#233;cent
   Dim X 
As 
Integer = 5

   For i 
As 
Integer = 0 
To (MySortFiles.Count - X) - 1
      IO.File.Delete(MySortFiles(i))

   Next

End 
If


<HR width="100%" SIZE=2>
 Si la r&#233;ponse te conviens merci de l'accepter

cs_Willi · Answer

'Lut,

Si tu veux vider un r&#233;pertoire tu peux faire comme ceci

dim MesFichiers as string() = system.io.directory.GetFiles("c:	on_rep")   'liste des fichiers de ton r&#233;p
dim LimiteDate as date = now.addhours(-1)   'd&#233;finie une date/heure limite de conservation de tes fichiers

for i as integer = 0 to MesFichiers.Lenght-1
   
   'r&#233;cup&#232;re la date/heure de cr&#233;ation des fichiers
   dim DateFichier as date = new system.io.fileinfo(MesFichiers(i)).CreationTime
   
   'compare sa date/heure de cr&#233;ation avec la date/heure limite d&#233;finie
   try
      'supprime le fichier si sa date de cr&#233;ation plus vieille que la date de limite d&#233;finie
      if date.compare(LimiteDate, DateFichier) < 0 then   system.io.file.delete(MesFichiers(i))
   catch
   end try

next

J'ai pas test&#233; mais c'est pour te donner une id&#233;e
Ce code r&#233;cup&#232;re la liste des fichiers de ton r&#233;pertoire
Ensuite il parcourt chaque fichier et compare leur date/heure de cr&#233;ation avec une date limite &#224; ne pas d&#233;passer.
Au del&#224; de cette date il sont consid&#233;rer comme "ancien" et sont supprimer
Voila si j'ai bien compris ce que tu recherches 


<HR width="100%" SIZE=2>

 Si la r&#233;ponse te conviens merci de l'accepter

nyoto · Answer

Euh ... oui mais non, j'ai beau retourner le probl&#232;me et c'est pas &#231;a ... Je dois uniquement conserver les X derniers fichiers cr&#233;&#233;s mais ce de mani&#232;re ind&#233;pendante par rapport &#224; la date ... il peut y avoir des fichiers cr&#233;&#233;s l m&#234;me jour et d'autre une semaine ou 2 avant ... Je dois donc effacer tous ceux qui ne sont pas les X plus r&#233;cents !!!

cs_Willi · Answer

Ils sont nomm&#233;s comment tes fichiers ??

nyoto · Answer

NRdatedufichier.reg.htm et menuNRdatedufichier.reg.htm

cs_Willi · Answer

Ok alors si j'ai bien compris l&#224;  tu ne veux garder que les x derniers fichiers cr&#233;&#233;s ??

cs_Willi · Answer

Si t'es fichiers sont nomm&#233;s en fonction de la date tu peux faire ceci et gard&#233; les x derniers fichiers

dim MesFichiers as string() = system.io.directory.GetFiles("c:	on_rep")   'liste des fichiers de ton r&#233;p

Array.sort(MesFichiers)

for i as integer = MesFichiers.Lenght - (X + 1) to 0    'X &#233;tant le nombres de fichiers &#224; garder
   try
      IO.File.Delete(MesFichiers(i))
   catch
   end try
next


<HR width="100%" SIZE=2>
 Si la r&#233;ponse te conviens merci de l'accepter

nyoto · Answer

Euh ... oui mais non c Ko total ...
Tu peux avoir 311205 et 010106 donc ya un gros bug ...
De plus je ne cpte pas ta boucle For ... pourrais tu m'expliquer ?

Hep me ... script de purge

8 réponses

Discussions similaires