Pegar ultimo arquivo criado em um diretorio

.NET

12/07/2012

Ola Pessoal,

Estou iniciando meus estudos no vb .net, e estou com o desafio de pegar o nome do ultimo arquivo criado em um diretorio

Montei um FOR que corre o diretorio e pega o nome e data da criação do arquivo, mas não estou conseguindo pensar como poderia criar uma logica para pegar o ultimo arquivo criado. Alguem pode me ajudar?

        Dim DirDiretorio As DirectoryInfo = New DirectoryInfo(C:\Users\diFlavia\Downloads)
        Dim oFileInfoCollection() As FileInfo
        Dim oFileInfo As FileInfo
        Dim i As Integer
        Dim dataArq As Date


        oFileInfoCollection = DirDiretorio.GetFiles(*.txt)

        For i = 0 To oFileInfoCollection.Length() - 1

            oFileInfo = oFileInfoCollection.GetValue(i)

            dataArq = oFileInfo.CreationTime

            MsgBox(oFileInfo.Name +   + oFileInfo.LastAccessTime)


        Next
Flavia Rodrigues.

Flavia Rodrigues.

Curtidas 0

Respostas

James Pedreira

James Pedreira

12/07/2012

Boa Tarde!

Acredito que você possa utilizar o seu loop para fazer isso, comparando a data da criação com a ultima data de criação que você utilizou. Não testei o código abaixo mas acredito que a lógica seja próxima a isso.

Dim DirDiretorio As DirectoryInfo = New DirectoryInfo(C:\Users\diFlavia\Downloads)
Dim oFileInfoCollection() As FileInfo
Dim oFileInfo As FileInfo
Dim i As Integer
Dim dataArq As Date
Dim oFileInfoUltimo As FileInfo

oFileInfoCollection = DirDiretorio.GetFiles(*.txt)

For i = 0 To oFileInfoCollection.Length() - 1

oFileInfo = oFileInfoCollection.GetValue(i)

If oFileInfo.CreationTime > dataArq Then
oFileInfoUltimo = oFileInfo
End If

dataArq = oFileInfo.CreationTime

MsgBox(oFileInfo.Name + + oFileInfo.LastAccessTime)


Next


Espero ter ajudado.
GOSTEI 0
POSTAR