Suppression de FichiersRésolu

Question

Salut,

J'ai un repertoire : c:\Sauvegardes
ou je cr&#233;&#233; toutes les 3 heures un fichier TXT avec un nom du Type :
DDMMYYYYHHMMSS.txt.

Comme bien s&#251;r la taille de ce repertoire augmente de plus en plus...
Comment faire pour supprimer tous les fichiers plus vieux d'un Mois ??

Merci d'avance de vos id&#233;es

It@li@

crenaud76 · Accepted Answer

Tu fait un dir() sur ton r&#233;pertoire pour boucler sur tous les fichiers, puis tu reconstruit la date de creation du fichier et tu al compares &#224; la date syst&#232;me - 1 mois.

Dim Path as String
Dim DRef as date
Dim F as string
Dim DFic as date
DRef = dateadd("m",now,-1) 'je me rappelle plus de l'ordre des arg de Dateadd !! v&#233;rifie
Path = " c:\sauvegardes"
F = dir(path & "\*.txt")
While lenb(f)>0 
 dfic = cdate(left(f,2) & "" & mid(f,3,2) & "" & mid(f,5,4)
if dfic < dref then kill path & "" & f
 f = dir
wend

Christophe R

cs_ITALIA · Answer

Effectivement l'ordre des argument de Dateadd sont invers&#233;s
Les / du DFic ne sont pas dans le Bon sens
 .

Sinon IMPECCABLE

Solution Retenue :

Dim Fichiers As String
Dim DFic As Date
Dim DRef As Date

DRef = DateValue(DateAdd("m", -1, Now))
Fichiers = Dir(Path & "Sauvegardes\*.txt")
While LenB(Fichiers) > 0
    DFic = CDate(Mid(Fichiers, 1, 2) & "/" & Mid(Fichiers, 3, 2) & "/20" & Mid(Fichiers, 5, 2))
    If DFic < DRef Then Kill App.Path & "\Sauvegardes" & Fichiers
    Fichiers = Dir
Wend

It@li@

cs_ITALIA · Answer

Merci beaucoup crenaud76

It@li@

crenaud76 · Answer

De rien !!

Christophe R

Suppression de Fichiers

4 réponses

Discussions similaires