Discussion :

[maloue]

Bonjour,

Je cherche un exemple de programme qui permet de lister les fichiers d'un répertoire dans l'ordre de la date de création.
De la plus récente création à la plus ancienne.

J'ai actuellement ce code mais il liste les fichiers pdf sans tri sur la date de création.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
        Dim MyDirectoyInfo As New DirectoryInfo(Rep_ETAI)
        Dim MesFichiers() As FileInfo
        MesFichiers = MyDirectoyInfo.GetFiles(DO_Piece & "*.PDF")
 
        Dim Fichier As FileInfo
        For Each Fichier In MesFichiers
 
            MessageBox.Show(Fichier.Name)
 
        Next Fichier

Merci par avance pour votre aide.

[ebastien]

Bonjour,
Tu peux essayer avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Fichier As FileInfo
For Each Fichier In MesFichiers.OrderByDescending(Function(aFile) aFile.CreationTime)
   MessageBox.Show(Fichier.Name)
Next Fichier

eb.

[Pol63]

ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
for each Fichier In (from f in MyDirectoyInfo.GetFiles(DO_Piece & "*.PDF") select f order by f.lastwritetime)
    MessageBox.Show(Fichier.Name)
next

[maloue]

Merci pour votre réponse.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
     Dim Fichier As FileInfo
     For Each Fichier In MesFichiers.OrderByDescending(Function(aFile) File.CreationTime)
     MessageBox.Show(Fichier.Name)
     Next Fichier

à la saisie de ce code j'ai le message suivant.
OrderByDescending n'est pas un membre de 'System.Array' ?

Merci

[Pol63]

sur quelle version de vs et du framework êtes vous ?
OrderByDescending et linq (à ce propose pas besoin de mp on est averti de vos réponses de topic automatiquement) ont du apparaitre avec le framework 3

[maloue]

Merci pour votre réponse.

J' ai activé le framwork 3.5 et je n'ai plus de message d'erreur.

Merci pour votre aide.