Trier une liste de fichiers par date
Contenu du snippet
'Récupère une liste de fichiers
Dim MyFiles As String() = IO.Directory.GetFiles("C:\UnRepertoire", "*")
'Si fichiers trouvés
If MyFiles IsNot Nothing Then
Dim MySortedFiles As New List(Of String)
MySortedFiles.Add(MyFiles(0))
'Tri les fichiers par date du plus ancien au plus récent
'Dans la collection MySortedFiles
For i As Integer = 1 To MyFiles.Length - 1
Dim CurrentDate As Date = New IO.FileInfo(MyFiles(i)).LastWriteTime
For j As Integer = 0 To MySorteFiles.Count - 1
Dim NextDate As Date = New IO.FileInfo(MySorteFiles(j)).LastWriteTime
'Compare les dates du fichier précédent avec date du fichier en cours
If Date.Compare(CurrentDate, NextDate) < 0 Then
MySorteFiles.Insert(j, MyFiles(i))
Exit For
ElseIf j = MySorteFiles.Count - 1 Then
MySortFiles.Add(MyFiles(i))
Exit For
End If
Next
Next
Compatibilité : VB 2005
Disponible dans d'autres langages :
A voir également
- Trier une liste de fichiers par date
- Trier une liste python - Forum Python
- Calcul date a date - Forum Javascript / DHTML
- Date de demain - Forum PHP
- Trier une colonne excel par ordre alphabétique vba - Forum Visual Basic
- Comparaison date sql - Forum SQL
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.