Array
(
)

Pegar ultimo arquivo criado em um diretorio

Flavia Rodrigues.
   - 12 jul 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?
#Código

        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

James
   - 13 jul 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.