Nesse vídeo será demonstrado em como copiar um arquivo entre dois diretórios através da função __CopyFile.

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "TOTVS.ch"
 
/*/{Protheus.doc} User Function zExe019
Exemplo de como utilizar a função __CopyFile
@type Function
@author Atilio
@since 26/11/2022
@obs Função __CopyFile
    Parâmetros
        + Arquivo de Origem com o caminho da pasta (podendo ser também da Protheus Data)
        + Arquivo de Destino com o caminho da pasta (podendo ser também da Protheus Data)
    Retorno
        + Retorna .T. se a cópia foi bem sucedida ou Retorna .F. se a cópia fracassou
 
    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
 
User Function zExe019()
    Local aArea        := FWGetArea()
    Local cArqOrigem   := "C:\Spool\arquivo.txt"
    Local cArqDestino  := "C:\Spool\arquivo_copia.txt"
 
    //Se a cópia for bem sucedida
    If __CopyFile(cArqOrigem, cArqDestino)
        FWAlertSucess("Cópia do arquivo realizada com sucesso!", "Sucesso")
 
    Else
        FWAlertError("Falha ao copiar o arquivo, verifique o privilégio ou se existe a pasta destino!", "Falha")
    EndIf
 
    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.
Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++