Bonjour à tous,
 
Je suis un peu embeter. En fait j'ai un repértoire partagé que je voudrais maintenir propre.
Je m'explique.IL faudrait que les fichiers ou que les répertoires qui sont mis dedans ne reste pas plus longtemps que 7 jours.
Pour les fichiers j'ai plus ou moins trouver comment tester la date , mais pour un dossier cela se complique un peu.
Le 1er test, serait de vérifier la présence de fichier ou de dossier.
Est-ce que quelqu'un peu m'aider.
Pour l'instant j'en suis là mais c'est encore pas vraiment ça.
 
dim folder
dim fso,fo,x
set fso=CreateObject("Scripting.FileSystemObject" )
set fo=fso.GetFolder("c:\test\" )
 
for each x in fo.files
if DateDiff("d",x.DateLastModified,Now) > 2 Then  
x.Delete
end if
set Folder = Fso.GetFolder(fo)
next
 
 
Merci à tous...