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.

    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 FINNET.","Totvs")
            else
                FwAlertError("Não foi possível realizar a cópia do arquivo para a FINNET" + 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

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 FINNET.","Totvs")
            else
                FwAlertError("Não foi possível realizar a cópia do arquivo para a FINNET" + 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

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 FINNET" + 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

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