MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


4 participantes

    [Resolvido]Copiar ficheiros do mês

    Jitano
    Jitano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Localização : Portugal
    Mensagens : 99
    Registrado : 13/06/2011

    [Resolvido]Copiar ficheiros do mês Empty Copiar ficheiros do mês

    Mensagem  Jitano 25/7/2011, 18:27

    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???)


    Última edição por Jitano em 28/11/2011, 11:14, editado 1 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    [Resolvido]Copiar ficheiros do mês Empty Re: [Resolvido]Copiar ficheiros do mês

    Mensagem  Alexandre Neves 30/7/2011, 17:47

    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
    Jitano
    Jitano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Localização : Portugal
    Mensagens : 99
    Registrado : 13/06/2011

    [Resolvido]Copiar ficheiros do mês Empty Re: [Resolvido]Copiar ficheiros do mês

    Mensagem  Jitano 1/8/2011, 15:23

    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?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    [Resolvido]Copiar ficheiros do mês Empty Re: [Resolvido]Copiar ficheiros do mês

    Mensagem  Alexandre Neves 1/8/2011, 15:34

    Boa tarde, Jitano

    Informe todos os detalhes do que pretende.
    Jitano
    Jitano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Localização : Portugal
    Mensagens : 99
    Registrado : 13/06/2011

    [Resolvido]Copiar ficheiros do mês Empty Re: [Resolvido]Copiar ficheiros do mês

    Mensagem  Jitano 3/8/2011, 16:58

    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
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    [Resolvido]Copiar ficheiros do mês Empty Re: [Resolvido]Copiar ficheiros do mês

    Mensagem  Alexandre Neves 3/8/2011, 22:12

    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,
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Copiar ficheiros do mês Empty Re: [Resolvido]Copiar ficheiros do mês

    Mensagem  vieirasoft 6/8/2011, 11:53

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Copiar ficheiros do mês Empty Re: [Resolvido]Copiar ficheiros do mês

    Mensagem  vieirasoft 9/8/2011, 11:25

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


    Respeito às regras : Respeito às Regras 100%

    Localização : Portugal
    Mensagens : 99
    Registrado : 13/06/2011

    [Resolvido]Copiar ficheiros do mês Empty Re: [Resolvido]Copiar ficheiros do mês

    Mensagem  Jitano 10/8/2011, 16:17

    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.

    Basketball
    Jitano
    Jitano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Localização : Portugal
    Mensagens : 99
    Registrado : 13/06/2011

    [Resolvido]Copiar ficheiros do mês Empty Re: [Resolvido]Copiar ficheiros do mês

    Mensagem  Jitano 11/8/2011, 09:38

    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.

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Copiar ficheiros do mês Empty Re: [Resolvido]Copiar ficheiros do mês

    Mensagem  JPaulo 11/8/2011, 12:13

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Copiar ficheiros do mês Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Copiar ficheiros do mês Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Copiar ficheiros do mês Folder_announce_new Instruções SQL como utilizar...
    Jitano
    Jitano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Localização : Portugal
    Mensagens : 99
    Registrado : 13/06/2011

    [Resolvido]Copiar ficheiros do mês Empty Re: [Resolvido]Copiar ficheiros do mês

    Mensagem  Jitano 11/8/2011, 15:08

    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
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    [Resolvido]Copiar ficheiros do mês Empty Re: [Resolvido]Copiar ficheiros do mês

    Mensagem  Alexandre Neves 11/8/2011, 19:21

    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
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Copiar ficheiros do mês Empty Re: [Resolvido]Copiar ficheiros do mês

    Mensagem  vieirasoft 16/8/2011, 18:18


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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Copiar ficheiros do mês Empty Re: [Resolvido]Copiar ficheiros do mês

    Mensagem  vieirasoft 19/8/2011, 08:38

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


    Respeito às regras : Respeito às Regras 100%

    Localização : Portugal
    Mensagens : 99
    Registrado : 13/06/2011

    [Resolvido]Copiar ficheiros do mês Empty Re: [Resolvido]Copiar ficheiros do mês

    Mensagem  Jitano 28/11/2011, 11:19

    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

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    [Resolvido]Copiar ficheiros do mês Empty Re: [Resolvido]Copiar ficheiros do mês

    Mensagem  Alexandre Neves 28/11/2011, 19:53

    Oh, Jitano

    Aplique a função dateadd
    Jitano
    Jitano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Localização : Portugal
    Mensagens : 99
    Registrado : 13/06/2011

    [Resolvido]Copiar ficheiros do mês Empty Re: [Resolvido]Copiar ficheiros do mês

    Mensagem  Jitano 29/11/2011, 17:31

    Obrigado Alexandre.

    Apliquei o código:

    Código:

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

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

    Very Happy

    Conteúdo patrocinado


    [Resolvido]Copiar ficheiros do mês Empty Re: [Resolvido]Copiar ficheiros do mês

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 12:46