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


2 participantes

    [Resolvido]Copiar arquivos para rede

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2695
    Registrado : 23/01/2018

    [Resolvido]Copiar arquivos para rede Empty [Resolvido]Copiar arquivos para rede

    Mensagem  crysostomo 23/6/2023, 21:52

    Estou tentando copiar arquivos para outro PC que está na rede, mas naonda certo.
    Mesmo mapeando ela da erro.

    Código:
    @echo off

    REM Copia todos os arquivos da pasta 'Arquivos' para a pasta 'Backup'
    xcopy /S /C /E /Y "C:\Users\Judicial\Desktop\Bcn\*.*" "\\DESKTOP-TCHFC3C\ServiçoSocial_(EM_TESTE)\CopiasAPB"
    pause
    exit

    CÓDIGO:
    @echo off

    REM Mapear a pasta de rede para uma letra de unidade
    net use Z: "\\DESKTOP-TCHFC3C\ServiçoSocial_(EM_TESTE)\CopiasAPB"

    REM Copiar todos os arquivos da pasta 'Arquivos' para a pasta de rede
    xcopy /S /C /E /Y "C:\Users\Judicial\Desktop\BPA\*.*" Z:\

    REM Desmapear a letra de unidade após a conclusão da cópia
    net use Z: /delete

    pause
    exit


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2695
    Registrado : 23/01/2018

    [Resolvido]Copiar arquivos para rede Empty Re: [Resolvido]Copiar arquivos para rede

    Mensagem  crysostomo 24/6/2023, 22:36

    UP


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Copiar arquivos para rede Empty Re: [Resolvido]Copiar arquivos para rede

    Mensagem  JPaulo 26/6/2023, 10:24

    Colar numa folha de texto, salvar e depois renomear para .VBS

    Código:
    Const OverwriteExisting = True
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.CopyFile "C:\Users\Judicial\Desktop\Bcn\*.*" , "\\DESKTOP-TCHFC3C\ServiçoSocial_(EM_TESTE)\CopiasAPB\", OverwriteExisting
    If Err = 0 Then
        Wscript.Echo "Atualizado com sucesso..."
    Else
        Wscript.Echo "Falha na atualização."
    End If


    .................................................................................
    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 arquivos para rede Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Copiar arquivos para rede Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Copiar arquivos para rede Folder_announce_new Instruções SQL como utilizar...

    crysostomo gosta desta mensagem

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2695
    Registrado : 23/01/2018

    [Resolvido]Copiar arquivos para rede Empty Re: [Resolvido]Copiar arquivos para rede

    Mensagem  crysostomo 2/7/2023, 20:21

    Boa tarde Jão Paulo, .
    Funcionou, mas  o vbs não pega as subpastas, então eu acrescentei mais linhas no copyFile com todos os nomes das pasta para copiar.
    Tentei alterar com algumas parte, mas o vbs ele não atende alguns requisitos.
    Teria como essa forma de pegar tudo o que está contido na pasta raiz? (pasta e subpastas...) para não precisar ficar vendo as pastas dos funcionários para ver se eles criaram mais.
    Mas está de grande valia.
    Obrigado...


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Copiar arquivos para rede Empty Re: [Resolvido]Copiar arquivos para rede

    Mensagem  JPaulo 3/7/2023, 10:48

    Você abriu este tópico pedindo para copiar ficheiros, não pastas.

    Por isso lhe passei o CopyFile, para pastas completas, pesquise por CopyFolder.


    .................................................................................
    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 arquivos para rede Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Copiar arquivos para rede Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Copiar arquivos para rede Folder_announce_new Instruções SQL como utilizar...
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2695
    Registrado : 23/01/2018

    [Resolvido]Copiar arquivos para rede Empty Re: [Resolvido]Copiar arquivos para rede

    Mensagem  crysostomo 3/7/2023, 13:08

    Obrigado Jp foi de grande valia. Vou pesquisar.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Conteúdo patrocinado


    [Resolvido]Copiar arquivos para rede Empty Re: [Resolvido]Copiar arquivos para rede

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/7/2024, 23:56