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?
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.
Curtir tópico
+ 0
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.
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
Clique aqui para fazer login e interagir na Comunidade :)