Nesse vídeo demonstraremos a utilização da função SmCopy, que serve para copiar arquivos.

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

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe448
Exemplo de como utilizar a função SmCopy
@type Function
@author Atilio
@since 31/03/2023
@obs Função SmCopy
    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 zExe448()
    Local aArea        := FWGetArea()
    Local cArqOrigem   := "C:\Spool\arquivo.txt"
    Local cArqDestino  := "C:\Spool\arquivo_copia.txt"

    //Se a cópia for bem sucedida
    If SmCopy(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++