Pegar ultimo arquivo criado em um diretorio

12/07/2012

0

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.

Responder

Posts

13/07/2012

James Pedreira

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.
Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar