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