[VB.NET 2005] Elencare files in ordine di data/ora ultima modifica

[Zingaro2002]

Salve gente!
Ho un problema semplice (non per me).

Utilizzo questa linea:
Dim fileEntries As String() = System.IO.Directory.GetFiles("c:\dirname")

per elencare tutti i files nella directory c:\dirname .

Così facendo ho un array (di stringhe) ordinato secondo i nomi di files (alfabeticamente da a in su).

In realtà a me servirebbe che quell'array fosse ordinato secondo la data-ora dell'ultima modifica al file.

C'è una maniera semplice per avere queste informazioni?

C'è un modo per avere tutti i files (elencati in ordine crescente di data-ora di modifica) in una directory?

Grazie in anticipo

[ans]

devi creare una classe che implementi l'interfaccia IComparer ed un metodo Compare che implementi IComparer.Compare ed il codice x il sort che vuoi fare, esempio:

    Private Class FileDateSorter : Implements IComparer 
        Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare 
            Dim xFi As System.IO.FileInfo = CType(x, System.IO.FileInfo) 
            Dim yFi As System.IO.FileInfo = CType(y, System.IO.FileInfo) 
            If xFi.CreationTime < yFi.CreationTime Then Return 1 
            If xFi.CreationTime > yFi.CreationTime Then Return -1 
            If xFi.CreationTime = yFi.CreationTime Then Return 0 
        End Function 
    End Class

e poi utilizzare FileInfo e DirectoryInfo di System.IO

Dim fileInfos() As System.IO.FileInfo 
Dim dirInfo As New System.IO.DirectoryInfo("c:\dirname") 
fileInfos = dirInfo.GetFiles 
fileInfos.Sort(fileInfos, New FileDateSorter)

non ho provato ma il concetto è quello

[Zingaro2002]

Grazie!!!

Proverò e ti farò sapere.

Ciao

[a.felix]

più correttamente con il 2005 sarebbe ad esempio se devi elencarlo su una check

    Public Sub CaricaFileXml()
        rbNewsToMail.Items.Clear()
        Dim fileInfos() As System.IO.FileInfo
        Dim dirInfo As New System.IO.DirectoryInfo(System.Web.Hosting.HostingEnvironment.ApplicationPhysicalPath & "Public\MyPublic\")
        fileInfos = dirInfo.GetFiles("*.xml")'miotipo
        Dim fInfo As New System.Collections.Generic.List(Of System.IO.FileInfo)()
        fInfo.AddRange(fileInfos)
        fInfo.Sort(New FileDateSorter())
        For Each f As System.IO.FileInfo In fInfo
            Dim xi As New ListItem(( f.Name.Remove(f.Name.LastIndexOf(".")) ), f.Name)
            MiaCheck.Items.Add(xi)
        Next
    End Sub

e la classe

Class FileDateSorter : Implements Generic.IComparer(Of System.IO.FileInfo)
    Public Function Compare(ByVal x As System.IO.FileInfo, ByVal y As System.IO.FileInfo) As Integer Implements System.Collections.Generic.IComparer(Of System.IO.FileInfo).Compare
        Return Date.Compare(x.LastWriteTime, y.LastWriteTime)
    End Function
End Class

Antonio F.