Bonjour à tous!
Voila, j'ai un script qui me fait une recherche de fichier sur le disque. Je choisis l'extension des fichiers que je veux rechercher aussi.
Le probleme c'est que je souhaiterai garder uniquement les fichier qui ont une date de création inférieure à 1 ans. Je ne sais pas du tout comment faire mais après quelques recherches.
Voici mon code :
 
msgbox "Recherche de documents Word (Ceci peut prendre quelques minutes)",, "Programme de sauvegarde"
strComputer = "."  
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objWMIService = GetObject("winmgmts:" _  
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )  
Set colFiles = objWMIService.ExecQuery _
("SELECT * FROM CIM_DataFile WHERE Drive = 'C:' AND Extension = 'doc'" )
For Each objFile in colFiles  
'Wscript.Echo objFile.Name
objFSO.CopyFile objFile.Name, "\\G00577\sav$\" & Nommachine & "\"
Next
msgbox "Copie des fichiers terminés",,"Programme de sauvegarde"
 
 
Merci de m'aider!  

Dim fichier As Scripting.file
 
puis fichier.DateCreated
       fichier.DateLastModified
       fichier.DateCreated
 
     etc pour récupérer les infos et par exemple
 
    '  Pour effacer les fichiers par exemple
    If DateDiff("D", Fichier.DateLastModified, Now) > xyz Then Fichier.Delete
 
     

Merci kiki29 pour ta réponse mais j'avoue que je comprend pas trés bien ton code.
Est-ce que je peux déja l'intégrer dans ma recherche?
Merci de m'eclairer à ce sujet!

A toi de l'adapter et de le tester

Ben il t'a donné les propriété d'un objet fichier à utiliser pour ce que tu veux.
 
Donc pour ce que tu veux, il faut utiliser objFile.dateCreated
 
If DateDiff("D", objFile.dateCreated, Now) > xyz Then Fichier.Delete  
 
Spa compliqué

C'est peut-être juste fénéant =)

 Si tu fais sa depuis 5 ans, tu trouves pas sa compliquer certes. Moi, j'ai attaqué le VBS, il y a seulement une semaine. Avec un minimun d'intelligence, vous pouvez comprendre qu'on ne peut pas tout deviner et comprendre dés le début.
Donc ton code, je le comprend mais j'arrive pas à l'adapté à ma recherche.  
Si vous etes si fort que sa, prendre 5min de plus pour m'expliquer de façon clair, ca vous côute pas grand chose non?

ce n'est pas avec ce genre de réponse que tu obtiendras de l'aide

Possible mais je suis honnête! Je demande rien d'autre que de l'aide d'ou le but d'un forum aussi. Si certains arrive pas à comprendre, j'y peux rien.

Ben alors voilà :
 

 
Ca doit ressembler à un truc comme ça. J'ai pas testé, il y a peut-être quelque syntaxe à vérifier, mais c'est l'idée
 
Stait vraiment pas compliqué