Tomás Vásquez Fórum

Enviado: **Sex Fev 20, 2015 11:34 am**

Boa tarde

Caros,

Estou conseguindo encontrar o arquivo na pasta que quero, porém só consegui até ai...rs, pois gostaria de também acrescentar ao lado a data de modificação, podem me ajudar por favor!!!

Sub loopArquivos()
Dim Arquivo

Caminho = Range("C3")

Arquivo = Dir("C:\*.txt")

L = 6

Do While Arquivo <> ""

Cells(L, 3) = Arquivo

Arquivo = Dir

L = L + 1
Loop

End Sub

Enviado: **Sex Fev 20, 2015 2:50 pm**

DJVSWD, boa tarde!

Não sei se entendi, mas...

Copie e cole o código abaixo do que você já tem na sua planilha!

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Cells(Target.Row, 1).Value <> "" Then
Cells(Target.Row, 2).Value = Str(Now)
End If
End Sub

Considerando que os dados apareceram na Coluna "A", na coluna "B" aparecerá data e hora.

Se não for assim, tente postar seu exemplo aqui para ficar mais fácil lhe ajudar!

Att,

Enviado: **Sex Fev 20, 2015 4:35 pm**

Creio que seja assim:

Código: Selecionar todos

Sub loopArquivos()
Dim Arquivo

Caminho = Range("C3")
l = 2
Arquivo = Dir("C:\*.txt")
'ou
'Arquivo = Dir(Caminho & "*.srt")

Do While Arquivo <> ""
Cells(l, 1) = Arquivo
Cells(l, 2) = FileDateTime("C:\" & Arquivo)
'ou
'Cells(l, 2) = FileDateTime(Caminho & Arquivo)
Arquivo = Dir

l = l + 1
Loop

End Sub

Tomás Vásquez Fórum

Listar data de modificação TXT

Listar data de modificação TXT

Re: Listar data de modificação TXT

Re: Listar data de modificação TXT