Faire une recherche par date?

Faire une recherche par date? - VB/VBA/VBS - Programmation

Marsh Posté le 09-01-2009 à 17:24:00    

Bonjour
voila j ai un repertoire qui de temps à autre contient de nouveau fichiers.
Je souhaiterais pouvoir de temps à autre rechercher les nouveaux fichiers qui ont été créé entre la date X et Y.
Tout simplement.  
Au meme titre que la recherche de windows ou l'on peut faire une recherche entre deux dates pour voir les fichiers créés dans cet interval de temps.
Je souhaiterais affichier le tout dans un fichier result.  Bon ca a la limite c est pas grave.
 
En ".bat" impossible de trouver une commande pour rechercher autre que DIR et qui pourrait prendre en parametre deux dates
et en VBS il y a bien un outil recherche mais impossible de savoir si l'on peut lui passer des dates. Un range de date en faite.
 
Voila
 
Système windows. Pas linux
 
Merci de votre aide


---------------
=-Galerie Photo=- // Tekilaz :: Trop bon, Trop con... // FEEDB4CK
Reply

Marsh Posté le 09-01-2009 à 17:24:00   

Reply

Marsh Posté le 09-01-2009 à 17:50:32    

En VBS, faire :

Code :
  1. date_min = "20090101"
  2. date_max = "20090110"
  3. Set fso = CreateObject("Scripting.FileSystemObject" )
  4. Set f = fso.GetFolder("C:\un_repertoire" )
  5. Set fc = f.Files
  6. For Each f1 in fc
  7.   date_fichier_yyyymmdd =   mid(f1.DateLastModified,7,4) _
  8.                           & mid(f1.DateLastModified,4,2) _
  9.                           & mid(f1.DateLastModified,1,2)
  10.   If (    date_fichier_yyyymmdd >= date_min _
  11.       And date_fichier_yyyymmdd <= date_max) Then
  12.      Wscript.Echo f1.Name & VbTab & f1.DateLastModified
  13.   End If
  14. Next


Message édité par olivthill le 09-01-2009 à 17:54:06
Reply

Marsh Posté le 11-01-2009 à 17:59:14    

:love: merci !


---------------
=-Galerie Photo=- // Tekilaz :: Trop bon, Trop con... // FEEDB4CK
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed