Se alguma pergunta ou resposta lhe foi útil, não deixe de dar seu voto positivo!

#include "protheus.ch"

User Function TestCopy()

DBUSEAREA(.T.,"CTREECDX",'SED0101', "SED", .F., .T.)

cFileIni := 'system\sed0101.dtc'
cFileFim := 'BACKUP\sed0101_bkp.dtc'

 If ! MsCopyFile(cFileIni, cFileFim)
     MsgAlert("O arquivo não pôde ser copiado.")

    Else    
    MsgAlert("O arquivo foi copiado com sucesso.")

    EndIf

    Return

1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

• up 1 down

  Anne, Para corrigir seu fonte basta deixá-lo desta forma, era apenas um erro de sintaxe no uso da função MsCopy:

  #include "protheus.ch"
  
  User Function TestCopy()
  
  cFileIni := '\system\sed0101.dtc'
  cFileFim := '\BACKUP\sed0101_bkp.dtc'
  
   If ! MsCopyFile(cFileIni, cFileFim,'CTREECDX')
       MsgAlert("O arquivo não pôde ser copiado.")
  Else    
      MsgAlert("O arquivo foi copiado com sucesso.")
  EndIf
  
  Return

  Se for apenas uma operação de cópia simples de uma pasta para outra no próprio servidor pode usar a função __CopyFile(cFileOrig,cFileDest), esta função faz apenas uma cópia simples e direta (a MsCopyFile é para arquivos de banco de dados). Esta função inclusive permite mais flexibilidade, você pode copiar servidor-servidor, servidor-cliente, cliente-cliente, cliente-servidor, e até com nomes de arquivo diferentes.

  Também existe as funções CpyT2S(https://tdn.totvs.com/display/tec/CpyT2S) que faz a cópia de um arquivo do servidor->cliente mantendo o mesmo nome original do arquivo, e a função CpyS2T(https://tdn.totvs.com/display/tec/CpyS2T) que faz o caminho reverso. ATENTE que estas funções mantém o mesmo nome de arquivo original.

  • editar
  • • x

    grosseiro ou ofensivo pouco construtivo obsoleto outro...

    Motivo

  • criado 27 de Feb de 2023

    Cirilo Rocha

    1680 pontos

  • 0

    Olá Cirilo! Muito obrigada pela ajuda, fiz aqui os ajustes de acordo com o que você repassou e deu certo! A cópia da tabela foi feita. Obrigada!

    — Anne Cavalcante   27 de Feb de 2023
  • x
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo

  Adicionar comentário

  Caracteres restantes: 600

  Cancelar Quero acompanhar este tópico via email.

  Comentário

  Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.

  Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações