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

Copyfile - Ajuda para mover arquivo

Senhores, Bom Dia.

Criei a seguinte função para mover um arquivo usando a função copyfile porém a função Ferror está me retornando o código de erro 430 430 Win : The system cannot find the specified path.

Os caminhos estão corretos, onde será que posso ter errado?

Valeu.


Static Function fTransf(cArqSel)

    Local cDirLocal := cArqSel
    Local cDirServ  := "\FIN\"
    Local cArqFin   := "D:\PROTHEUS_TST\protheus_data\FIN\" + SubStr(cArqSel,9,30)
    Local cDirFin   := "D:\FIN\O0055FIN\SAIDA\"  + SubStr(cArqSel,9,30)


    //Verifico se o arquivo existe na máquina local, copio para o servidor, e no servidor copio para o diretório da Fin
    If File(cArqSel)

        if CpyT2S(cDirLocal, cDirServ)
            FwAlertSuccess("Arquivo copiado com sucesso para o servidor.", "Totvs")
            If __CopyFile(cArqFin, cDirFin)
                FwAlertSuccess("Arquivo enviado com sucesso para a FIN.","Totvs")
            else
                FwAlertError("Não foi possível realizar a cópia do arquivo para a FIN" + CRLF + "Código do Erro:" + CVALTOCHAR(FError()) ,"Totvs")
            Endif
        else
            FwAlertError("Não foi possível realizar a cópia do arquivo para o servidor","Totvs")
        Endif

    Endif

Return
compartilhar
  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!

1 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags advpl ou faça a sua própria pergunta.