Récupérer et comparer noms de dossiers

Récupérer et comparer noms de dossiers - VB/VBA/VBS - Programmation

Marsh Posté le 27-09-2006 à 12:40:10    

Bonjour,
 
J'ai dans un répertoire, des dossiers dont le nom finit par une date, de type "maj_29062007"
 
Le but est donc après comparaison de chacun des noms de ces dossiers, d'ouvrir le plus récent.
 
Top chrono !
 
Merci.

Reply

Marsh Posté le 27-09-2006 à 12:40:10   

Reply

Marsh Posté le 27-09-2006 à 12:54:45    

1/ c'est tellement simple que tu es invité à faire un effort plutôt que d'attendre une solution toute cuite
2/ utilise plutôt le pattern YYYYMMDD au lieu de DDMMYYYY car un simple tri littéral sur le nom te suffirait à retrouver la date la plus récente

Reply

Marsh Posté le 27-09-2006 à 13:12:14    

1/ Je rêve.
2/ le format de la date n'est pas le problème.
Merci pour cette grande lecon de vie.

Reply

Marsh Posté le 27-09-2006 à 18:03:09    

Voir et sans doute adapter
http://forum.hardware.fr/hardwaref [...] 1719-1.htm
du 07-06-2006 à 19:48:11

Reply

Marsh Posté le 27-09-2006 à 19:03:35    

Merci beaucoup.
J'avais effectivement vu cette solution sur le forum, mais ca me semblait assez complexe, je pensais qu'il pouvait exister une fonction plus simple...
 
Encore merci.

Reply

Marsh Posté le 27-09-2006 à 22:26:26    

Je ne crois pas qu'elle soit si complexe que ça et si c'est le cas tu peux la simplifier car le code est basique, de plus c'est en forgeant que l'on devient forgeron.
Une remarque j'ai supposé que tu utilisais VBA, il est sage de faire précéder les questions par un [VBA] ou [Vb6] ou [VbNET] etc  
 
Si tu utilises ce code il te faudra  :
 
Outils | Références Cocher Microsoft Scripting Runtime
Nommer la zone A2..C65536 en ZoneTri
Affecter un Bouton à TestListeFichiersDansDossier
       en mettant auparavant TestListeFichiersDansDossier en Public et non Private
Si recursion Dossier/Sous Dossiers
       ListeFichiersDansDossier Dossier, True sinon ListeFichiersDansDossier Dossier, False


Message édité par kiki29 le 27-09-2006 à 23:04:51
Reply

Marsh Posté le 28-09-2006 à 10:06:48    

ok.
Merci.

Reply

Sujets relatifs:

Leave a Replay

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