Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Listar data de modificação TXT

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
DJVSWD
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Qui Fev 06, 2014 11:21 am

Listar data de modificação TXT

Mensagem por DJVSWD »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Marciel Silva
Colaborador
Colaborador
Mensagens: 98
Registrado em: Qui Nov 01, 2012 2:37 pm

Re: Listar data de modificação TXT

Mensagem por Marciel Silva »

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,


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Listar data de modificação TXT

Mensagem por Reinaldo »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder