FaridP
XLDnaute Occasionnel
Bonsoir à toutes et à tous,
Je dois supprimer des dossiers nommés par date au format AAAAMMJJ (ex. : 20181221) dont le nom est antérieur à la date du jour -15.
Ces dossiers se trouvent dans le répertoire : X:\Extractions.
J'ai essayé d'adapter un code récupéré mais déjà sur la liste des répertoires celui du jour est le premier à apparaître alors qu'il devrait être exclu :
Je ne parviens pas à passer à l'étape de suppression du dossier car je bloque sur cette partie.
Pourriez-vous me donner un p'tit coup de main ?
Merci à tout le monde, bonne soirée et bon week-end.
Farid
Je dois supprimer des dossiers nommés par date au format AAAAMMJJ (ex. : 20181221) dont le nom est antérieur à la date du jour -15.
Ces dossiers se trouvent dans le répertoire : X:\Extractions.
J'ai essayé d'adapter un code récupéré mais déjà sur la liste des répertoires celui du jour est le premier à apparaître alors qu'il devrait être exclu :
Code:
Sub ChercherRépertoire()
Dim DateJour As String
DateJour = Right(Date, 4) & Mid(Date, 4, 2) & Left(Date, 2)
MsgBox DateJour
MyPath = "X:\Extractions\"
MyName = Dir(MyPath, vbDirectory)
Do While MyName <> ""
' Ignore le répertoire courant et le répertoire contenant le répertoire courant
If MyName <> "." And MyName <> ".." Then
' Vérifie que le dossier est antérieur à 15 jours.
If MyName < DateJour - 15 Then
MsgBox MyName
End If '
End If
MyName = Dir ' Extrait l'entrée suivante
Loop
End Sub
Je ne parviens pas à passer à l'étape de suppression du dossier car je bloque sur cette partie.
Pourriez-vous me donner un p'tit coup de main ?
Merci à tout le monde, bonne soirée et bon week-end.
Farid