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


3 participantes

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

    RneoX
    RneoX
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  RneoX 2/8/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: Projeto Casco do Máximo Access v3.0 (Pré-Release 4.0) 
    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.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 2/8/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Selecionar todos arquivos/pastas de um local e copiar e substituir em outro Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Selecionar todos arquivos/pastas de um local e copiar e substituir em outro Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Selecionar todos arquivos/pastas de um local e copiar e substituir em outro Folder_announce_new Instruções SQL como utilizar...
    RneoX
    RneoX
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  RneoX 2/8/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: Projeto Casco do Máximo Access v3.0 (Pré-Release 4.0) 
    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.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 2/8/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Selecionar todos arquivos/pastas de um local e copiar e substituir em outro Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Selecionar todos arquivos/pastas de um local e copiar e substituir em outro Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Selecionar todos arquivos/pastas de um local e copiar e substituir em outro Folder_announce_new Instruções SQL como utilizar...
    RneoX
    RneoX
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  RneoX 2/8/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: Projeto Casco do Máximo Access v3.0 (Pré-Release 4.0) 
    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.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 2/8/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Selecionar todos arquivos/pastas de um local e copiar e substituir em outro Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Selecionar todos arquivos/pastas de um local e copiar e substituir em outro Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Selecionar todos arquivos/pastas de um local e copiar e substituir em outro Folder_announce_new Instruções SQL como utilizar...
    RneoX
    RneoX
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  RneoX 29/8/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: Projeto Casco do Máximo Access v3.0 (Pré-Release 4.0) 
    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
    RICARDO BARBOSA MACHADO
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  RICARDO BARBOSA MACHADO 10/4/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...

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 16:25