ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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 » 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



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 » 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,


Marciel Silva
Se suas dúvidas foram esclarecidas, marque o tópico como [RESOLVIDO].
E agradeça aqueles que voluntariamente pôde te auxiliar clicando no joinha.
m-m@r7.com

Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1424
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 » 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


Reinaldo
:oops: :D :mrgreen: :geek:

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