[Resolvido]Copiar ficheiros do mês

Eu uso esta parte de código que copia todos os ficheiros na pasta com os primeiros digitos = ASDFG e data actual

Código:

For Each objF1 In objFiles
    If Left(objF1.Name, 5) = "ASDFG" And objF1.DateLastModified > Date Then
    objFS.CopyFile strFolderPath & objF1.Name, "ArquivoDP308\"
End If
Next

Queria alterar para copiar os ficheiros do mês, como faço?

objF1.DateLastModified = Date(month???)

Boa tarde, Jitano
Suponho que queira do mês actual
Se for, utilize
For Each objF1 In objFiles
If Left(objF1.Name, 5) = "ASDFG" And Format(objF1.DateLastModified,"mm-yyyy") = Format(Date,"mm-yyyy") Then
objFS.CopyFile strFolderPath & objF1.Name, "ArquivoDP308\"
End If
Next

Olá Alexandre Neves, obrigado pela ajuda!

Sim, quero o mês actual... mas acontece que os ficheiros não aparecem logo no dia 1... só no dia 2, 3 ou 4... e por exemplo hoje (dia 1) não copia porque ainda não existem e eu pretendia que copia-se do mês actual, mas se não existirem ainda copiarem do mês anterior.

A maneira ideal é copiar os ficheiros mais recentes, ou seja, com a data de modificação mais recente. É possível?

Boa tarde, Jitano

Informe todos os detalhes do que pretende.

A grande ajuda que me destes resultou, mas só a partir de ontem (dia em que os ficheiros do mês de Agosto ficaram disponíveis).

No dia 1 de Agosto (os ficheiros do mês de Agosto ainda não estavam criados) e não copiava nada, queria que copiasse neste caso os do mês anterior (Julho) mês-1

faço através de um if?
pode dar uma ajuda

obrigado

Boa noite,

Então, utilize
dim JaCopiado as boolean

JaCopiado=False
For Each objF1 In objFiles
If Left(objF1.Name, 5) = "ASDFG" And Format(objF1.DateLastModified,"mm-yyyy") = Format(Date,"mm-yyyy") Then
JaCopiado=true
objFS.CopyFile strFolderPath & objF1.Name, "ArquivoDP308\"
End If
Next

If not jacopiado then
For Each objF1 In objFiles
If Left(objF1.Name, 5) = "ASDFG" And Format(objF1.DateLastModified,"mm-yyyy") = Format(DateSerial(Ano(Data()), Mês(Data()),0),"mm-yyyy") Then
objFS.CopyFile strFolderPath & objF1.Name, "ArquivoDP308\"
End If
Next
end if
Cumprimentos,

Estou a puxar o tópico para cima. se já tiver resolvido, agradeço o seu retorno.

Como não retornou, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

vieirasoft: Desculpa, estive sem vir ao Maximo por algum tempo.

Alexandre Neves: OBRIGADO, funciona na perfeição copiei um ficheiro mensal que ainda não havia no mês actual, então copiou o do mês anterior, valeu! Vou agora tentar adaptar para ficheiros diários, ou seja, quando tentar copiar ficheiros durante o fim de semana ele vai copiar no Sábado o ficheiro de Sexta e no Domingo o ficheiro de Sexta.

A ajuda do Alexandre Neves resultou e o tópico está resolvido.

Só re-abri para colocar outra questão:

Há alguma maneira de copiar ficheiros segundo o critério:

Código:

For Each objF1 In objFiles
If Left(objF1.Name, 5) = "ABCDE" And <ULTIMA-DIA-MODIFICADO> Then
objFS.CopyFile strFolderPath & objF1.Name, "C:\Arquivo\"
End If
Next

Ou seja, tenho por exemplo:
- 10 ficheiros ABCDE modificados hoje
- 8 ficheiros ABCDE modificados ontem
- 5 ficheiros ABCDE modificados 3 dias atrás

Queria que o codigo identifica-se a última data de modificação e copia-se só esses, neste caso copiava os 10 ficheiros ABCDE modificados hoje.

Penso que se já funciona para o mês, para o dia é só alterar a formatação;


If Left(objF1.Name, 5) = "ASDFG" And Format(objF1.DateLastModified, "dd-yyyy") = Format(DateSerial(Year(Date()), Day(Date()), 0), "dd-yyyy") Then

Sim JPaulo, funciona... obrigado!
Já tinha adaptado antes.

A minha questão era mais relacionada com o modo de actuação do código:

Tenho milhares de ficheiros numa pasta e demora um bucado a...

1º Percorre os ficheiros todos até encontrar os ASDFG do dia
se encontrar, ok
se não encontrar
2º Percorre os ficheiros todos até encontrar os ASDFG do dia anterior

era melhor ele
1º identificar os ASDFG com a última data
2º copiar

penso que era mais rápido

Oh, Jitano

Como se trata de membro de Portugal, conhece a expressão "mijar às pinguinhas"
Vamos lá.
Para identificar a última data de modificação dos ficheiros existentes
Dim UltimaData as date,PrimeiraData as boolean

UltimaData=date:PrimeiraData =true
For Each objF1 In objFiles
if PrimeiraData Then
UltimaData=objF1.DateLastModified
PrimeiraData=False
Else
If objF1.DateLastModified>UltimaData Then UltimaData=objF1.DateLastModified
End If
Next

Estou a puxar o tópico para cima. se já tiver resolvido, agradeço o seu retorno.

Como não retornou, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

Viva, re-abri o tópico porque precisava de ajuda numa situação semelhante...

Eu uso esta parte de código que copia todos os ficheiros na pasta com os primeiros digitos = ASDFG e data do dia actual:

Código:


For Each objF1 In objFiles
    If Left(objF1.Name, 5) = "ASDFG" And objF1.DateLastModified > Date Then
    objFS.CopyFile strFolderPath & objF1.Name, "ArquivoDP308\"
End If
Next


Dá para alterar só a parte da data:

Código:


objF1.DateLastModified > Date Then


Para copiar todos os ficheiros dos últimos 7 dias (ficheiros semanais).
Em vez de copiar os ficheiros com data diária?

Dá para alterar simples aqui e funcionar ou tenho de ir pela opção do amigo Alexandre Neves com o método JaCopiado?

Obrigado

Oh, Jitano

Aplique a função dateadd

Obrigado Alexandre.

Apliquei o código:

Código:


> DateAdd("d", -6, Date)


Copia os ficheiros do dia actual e dos 5 dias anteriores.