MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Selecionar todos arquivos/pastas de um local e copiar e substituir em outro

    Compartilhe
    avatar
    RneoX
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 26/07/2011

    Selecionar todos arquivos/pastas de um local e copiar e substituir em outro

    Mensagem  RneoX em Sex 02 Ago 2013, 13:24

    Bom dia!
    Saudações mestres!

    Estou com um grande problema cerebral em selecionar todos os arquivos e pasta de um determinado local e copiar em outro "Mais especificamente na rede" substituindo todos sem perguntar. Alguém pode me dar uma pista?

    Abraços a todos!


    .................................................................................
    Conhece meus projetos que ajudam os usuários a entender o funcionamento de várias funções encontradas aqui no fórum? também pode usa-lo para seus negócios ou para uso pessoal, não conhece? então visite aqui e veja como está bacana: [Você precisa estar registrado e conectado para ver este link.] 
    Ser livre é ter liberdade para expressar suas idéias,
    Ser diferente é ser especial e o reverso da igualdade,
    Ser criativo é ser poderoso,
    Ter conhecimentos e não dividir-los é ser egoísta e orgulhoso,
    Ensinar é um prazer que todos devem ter por seus alunos, pois é dele que vem nossos troféus.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Selecionar todos arquivos/pastas de um local e copiar e substituir em outro

    Mensagem  JPaulo em Sex 02 Ago 2013, 14:25

    Teste por favor;


    Public Sub CopiaPasta()
    'By JPaulo ® Maximo Access
    'Necessario ativar a referencia VBA
    'Microsoft Scriting Runtime
    Dim fso
    Dim strOrigem As String, strDestino As String
    strOrigem = "C:\SuaPasta" ' caminho de origem da pasta"
    strDestino = "C:\SuaOutraPasta\" ' caminho de destino"
    Set fso = CreateObject("Scripting.FileSystemObject")

       If fso.FolderExists(strDestino) Then
       'se a pasta existir, deleta
           fso.DeleteFolder strDestino & "SuaPasta"
       'copia de novo
       fso.CopyFolder strOrigem, strDestino
       MsgBox "Pasta e ficheiros copiados com sucesso !"
       Else
       End If
    End Sub


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

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    RneoX
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 26/07/2011

    Re: [Resolvido]Selecionar todos arquivos/pastas de um local e copiar e substituir em outro

    Mensagem  RneoX em Sex 02 Ago 2013, 14:58

    Perfeito JPaulo,
    Agora como eu faço somente para atualizar alguns arquivos sem deletar a pasta existente?


    .................................................................................
    Conhece meus projetos que ajudam os usuários a entender o funcionamento de várias funções encontradas aqui no fórum? também pode usa-lo para seus negócios ou para uso pessoal, não conhece? então visite aqui e veja como está bacana: [Você precisa estar registrado e conectado para ver este link.] 
    Ser livre é ter liberdade para expressar suas idéias,
    Ser diferente é ser especial e o reverso da igualdade,
    Ser criativo é ser poderoso,
    Ter conhecimentos e não dividir-los é ser egoísta e orgulhoso,
    Ensinar é um prazer que todos devem ter por seus alunos, pois é dele que vem nossos troféus.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Selecionar todos arquivos/pastas de um local e copiar e substituir em outro

    Mensagem  JPaulo em Sex 02 Ago 2013, 15:14

    Então vamos supor o seguinte;

    Na drive C:\ tenho uma pasta de nome imagens, e necessito de substituir a imagem 0033.jpg na pasta xpto;

    Utilizo:

    FileCopy "C:\imagens\001.jpg", "C:\xpto\0033.jpg"


    Posso copiar tantas vezes a linha a cima, quantos ficheiros quiser substituir.

    Teste e retorne.


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

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    RneoX
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 26/07/2011

    Re: [Resolvido]Selecionar todos arquivos/pastas de um local e copiar e substituir em outro

    Mensagem  RneoX em Sex 02 Ago 2013, 15:31

    Na verdade me expressei mal, é exatamente o que você escreveu acima, mas sem deletar a pasta toda já existente.
    Porque na pasta onde vou copiar são somente os arquivos atualizados (Exemplo 9 Arquivos) e na pasta origem é o projeto onde tem (42 Arquivos), mas quando eu executar. Copia todos os 9 arquivos podendo ter pasta e subpasta que coloquei na pasta "Origem" para a pasta Destino substituindo as existente.

    Resumindo, vou usar como um script de atualização de sistema.


    .................................................................................
    Conhece meus projetos que ajudam os usuários a entender o funcionamento de várias funções encontradas aqui no fórum? também pode usa-lo para seus negócios ou para uso pessoal, não conhece? então visite aqui e veja como está bacana: [Você precisa estar registrado e conectado para ver este link.] 
    Ser livre é ter liberdade para expressar suas idéias,
    Ser diferente é ser especial e o reverso da igualdade,
    Ser criativo é ser poderoso,
    Ter conhecimentos e não dividir-los é ser egoísta e orgulhoso,
    Ensinar é um prazer que todos devem ter por seus alunos, pois é dele que vem nossos troféus.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Selecionar todos arquivos/pastas de um local e copiar e substituir em outro

    Mensagem  JPaulo em Sex 02 Ago 2013, 16:39

    Então faça o teste sem o delete;

    Public Sub CopiaPasta()
    'By JPaulo ® Maximo Access
    'Necessario ativar a referencia VBA
    'Microsoft Scriting Runtime
    Dim fso
    Dim strOrigem As String, strDestino As String
    strOrigem = "C:\PastaOrigem" ' caminho de origem da pasta"
    strDestino = "C:\PastaDestino" ' caminho de destino"
    Set fso = CreateObject("Scripting.FileSystemObject")

    fso.CopyFolder strOrigem, strDestino
    MsgBox "Pasta e ficheiros copiados com sucesso !"
    End Sub



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

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    RneoX
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 26/07/2011

    Re: [Resolvido]Selecionar todos arquivos/pastas de um local e copiar e substituir em outro

    Mensagem  RneoX em Qui 29 Ago 2013, 19:55

    Testado e funcionando Jpaulo, Obrigado pela força!
    Estou na correria do Cascov4 e acabei esquecendo de agradecer!


    .................................................................................
    Conhece meus projetos que ajudam os usuários a entender o funcionamento de várias funções encontradas aqui no fórum? também pode usa-lo para seus negócios ou para uso pessoal, não conhece? então visite aqui e veja como está bacana: [Você precisa estar registrado e conectado para ver este link.] 
    Ser livre é ter liberdade para expressar suas idéias,
    Ser diferente é ser especial e o reverso da igualdade,
    Ser criativo é ser poderoso,
    Ter conhecimentos e não dividir-los é ser egoísta e orgulhoso,
    Ensinar é um prazer que todos devem ter por seus alunos, pois é dele que vem nossos troféus.

    RICARDO BARBOSA MACHADO
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 21/07/2014

    Re: [Resolvido]Selecionar todos arquivos/pastas de um local e copiar e substituir em outro

    Mensagem  RICARDO BARBOSA MACHADO em Seg 10 Abr 2017, 00:32

    Boa noite Jpaulo,

    Utilizando o tópico respondido você conseguiria um código para eu copiar um arquivo PDF e replicá-lo com nomes que eu determinar provenientes de uma tabela?
    Ou seja, eu tenho um arquivo PDF e uma tabela com um campo com os seguintes dados: PV123; PV124; PV125... (quantos dados mais existirem), e o sistema pegar esse arquivo pdf e transformar em vários outros com os nomes dos dados da tabela: PV123.pdf; PV124.pdf; PV125.pdf...

      Data/hora atual: Sab 18 Nov 2017, 19:32