Lecture des fichier d'un repertoir et triage sur la date

Soyez le premier à donner votre avis sur cette source.

Vue 5 715 fois - Téléchargée 874 fois

Description

C'est un petit programme tres simple avec un exemple de passage en parametre , ce programme lis les fichiers d'un repertoire,
et les stock dans une liste trier sur la date creation des fichiers

Source / Exemple :


en fait c pa trier sur la date mais sur l'heure de creation, chez plus mais ct le resultat ke mon pote voulais

c cool du VB , mais bon moi chui dans le c++ buider ;-)

allez bonne continuation @+

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_ZiEgFRiED
Messages postés
1
Date d'inscription
samedi 22 mai 2004
Statut
Membre
Dernière intervention
3 mai 2005

:( ce code me plaisais bien dans l optique de renommer automatiquement les photos numeriques d'un evenement quelconque a partir de plusieurs appareils.
Dans ce cas, un tri par date et heure de creation est essentiel. Ici, le code fourni ne fait le tri que par rapport a la date de modification...

Dommage. on va essayer de remedier a cela
cs_bilal
Messages postés
87
Date d'inscription
dimanche 2 février 2003
Statut
Membre
Dernière intervention
4 mars 2010

en fait c pa trier sur la Date mais sur l'heure de creation, chez plus mais ct le resultat ke mon pote voulais

c cool du VB , mais bon moi chui dans le c++ buider ;-)

allez bonne continuation @+
tinut
Messages postés
4
Date d'inscription
vendredi 9 mai 2003
Statut
Membre
Dernière intervention
23 février 2004

la soluce : remplacer le code (bien commenté, bravo) de l'étape 2 par :


'********************************************
' DEBUT ETAPE 2
'********************************************
For i = 0 To Source.ListCount - 1 Step 1 ' Boucle de 0 au nombre d'element qu'il y a dans la liste Source -1
' " -1 " car : (exemple) 5 elements = 0 à 4
Fichier Path + Source.List(i) ' (exemple) Fichier "c:\temp" + "aa.txt"
DateFichier FileDateTime(Fichier) ' DateFichier date et heure de cretion du fichier "Fichier"

Dim yearDate As String
Dim monthDate As String
Dim dayDate As String
yearDate = Year(DateFichier)
monthDate = Month(DateFichier)
If (Len(monthDate) < 2) Then monthDate = "0" & monthDate
dayDate = Day(DateFichier)
If (Len(dayDate) < 2) Then dayDate = "0" & dayDate




Liste.AddItem (yearDate & monthDate & dayDate & " * " + Path + Source.List(i))
' Liste.Sorted est deja True , voir ses proprietes '
Liste.ItemData(Liste.NewIndex) = i ' n'est pas utile , juste indicatif
' c.à.d : element 1 n°1 , el 2 n°2 ,etc...
Next i
'********************************************
' FIN ETAPE 2
'********************************************




j'ai converti la date en yyyymmdd ce qui permet un tri réellement par date ...
tinut
Messages postés
4
Date d'inscription
vendredi 9 mai 2003
Statut
Membre
Dernière intervention
23 février 2004

loupé, ca ne trie pas par date (du moins pas par année, puis mois, puis jour) car le format jj/mm/aaaa ne permet pas de trier par date. il faut convertir la date en aaaammjj si tu veux avoir un vrai tri.


ca marche uniquement si les fichiers ont le meme mois et année , ce qui est rarement le cas ...
tinut
Messages postés
4
Date d'inscription
vendredi 9 mai 2003
Statut
Membre
Dernière intervention
23 février 2004

loupé, ca ne trie pas par date (du moins pas par année, puis mois, puis jour) car le format jj/mm/aaaa ne permet pas de trier par date. il faut convertir la date en aaaammjj si tu veux avoir un vrai tri.


ca marche uniquement si les fichiers ont le meme mois et année , ce qui est rarement le cas ...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.