Array
(
)

Pegar ultimo arquivo criado em um diretorio

Flavia Rodrigues.
|
MVP
    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.