>salve,
Ciao
>eseguo questo ciclo per aprire dei file contenuti in una cartella,
>come posso prendere il file scritto meno recente al piu recente,
>quindi in sostanza ordinarli per data in ordine decrescente
>
>
>
> Dim fname As String
>Dim Percorso As String = Application.StartupPath & "\update"
>
> For Each fname In Directory.GetFiles(Percorso)
>
>Dim Appo As String = fname 'percorso del file da aprire
>
> Next
>
Ovviamente ci sono mille soluzioni, eccotene un esempio:
Private Function GetFileOrdinati(ByVal Percorso As String) As ArrayList
Dim retValue As New ArrayList
Dim DirInfoPercorso As New IO.DirectoryInfo(Percorso)
Dim dtFiles As New DataTable("Files")
dtFiles.Columns.Add("LastWriteTime", GetType(Date))
dtFiles.Columns.Add("FileInfo", GetType(IO.FileInfo))
For Each FileInfo As IO.FileInfo In DirInfoPercorso.GetFiles()
dtFiles.Rows.Add(FileInfo.LastWriteTime, FileInfo)
Next
For Each dr As DataRow In dtFiles.Select("", "LastWriteTime")
retValue.Add(dr("FileInfo"))
Next
Return retValue
End Function
La funzione ritorna una ArrayList di oggetti FileInfo ordinati per data di ultima scrittura. Se stai utilizzando il framework 2.0 ti consiglio di usare le collezioni generic e fare ritornare alla funzione un Generic.List(Of IO.FileInfo), o comunque anche con l'1.1 puoi crearti una tua collezione tipizzata (non mi piace lavore con gli Object).
>
>Grazie a tutti Questo forum e il migliore!!
>grazie
Enjoy It
http://blogs.dotnethell.it/Regulator/