Willynuisance

Voila un script en vbs qui fait le boulot si tu en as encore besoin... '**************************************************************************' '* Script de suppression des fichier de plus de trois mois sur les *' '* serveurs tampon *' '**************************************************************************' '* Version | Auteur | Nature des modifications *' '**************************************************************************' '* v0.9 - 22/08/2005 | William MESSIN | Création *' '**************************************************************************' '* Initialiser le chemin à scanner - Supprime tous les répertoires *' '* vieux de plus de x jours dans le Path initialisé *' '**************************************************************************' 'Chemin ou se trouve les répertoires à supprimer. Const Path = "E:\Data\SauvegardeUsers\" 'A initialiser 'Fichier de log à créer. Const LogFile = "Log_suppr_tampon.log" 'A initialiser 'Nombre de jours min pour les dossier à supprimer Const NbJours = 15 'A initialiser Const ForWriting = 2, ForAppending = 8 Dim Text Dim f, ff, fileSysObj, list Dim dossier 'On error resume next Set fileSysObj = CreateObject("Scripting.FileSystemObject") ' Teste si le dossier existe If (fileSysObj.FolderExists(Path)) Then Text=WriteLog (LogFile, "***********************", ForWriting) Text=WriteLog (LogFile, "Fichier de log des suppressions du " & Date, ForAppending) Set f = fileSysObj.GetFolder(Path) Set list = f.SubFolders For Each ff in list dossier = ff.name Text=WriteLog (LogFile, "", ForAppending) Text=WriteLog (LogFile, dossier & " , créé le " &ff.DateCreated, ForAppending) If Date-ff.DateCreated > NbJours Then Text=WriteLog (LogFile, "vieux de "& Date-ff.DateCreated &" jours : dossier supprimé!!", ForAppending) fileSysObj.DeleteFolder(ff) Else Text=WriteLog (LogFile, "vieux de "& Date-ff.DateCreated &" jours : dossier conservé", ForAppending) End If Next Else Text=WriteLog (LogFile, "ERROR : " & Path & " not found!!!", ForWriting) End If Text=WriteLog (LogFile, "", ForAppending) Text=WriteLog (LogFile, "***** END OF FILE *****", ForAppending) '**************************************************************************' '* Fonction WriteLog *' '**************************************************************************' '* Cette fonction ecrit une ligne de texte dans le fichier specifié. *' '* Si ce fihier n'existe pas il est crée *' '**************************************************************************' '* Input: FichierCible : Fichier dans lequel on doit ecrire *' '* Text : Ligne à ecriredans le fichier *' '**************************************************************************' '* Output: Aucun *' '**************************************************************************' Private Function WriteLog (ByVal FichierCible, ByVal Text, ByVal Mode) ' Mode : Ecrasement , à la suite ' Const ForWriting = 2, ForAppending = 8 Dim fso, fresult Set fso = CreateObject("Scripting.FileSystemObject") Set fresult = fso.OpenTextFile(FichierCible, Mode, True) fresult.Write Text & VbCrLf fresult.close End Function a enregistrer sous ***.vbs puis le lancer sous DOS avec un wscript ***.vbs J'espère que ça vous va!! Désolé j'avais pas vu les dates.... ça servira pour les autres qui ont besoin de faire qqchose de similaire!