Nesse vídeo demonstraremos a utilização da função DirRemove, que serve para apagar uma pasta.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas #Include "TOTVS.ch" /*/{Protheus.doc} User Function zExe144 Função que apaga uma pasta @type Function @author Atilio @since 16/12/2022 @obs Função DirRemove Parâmetros + Indica o nome da pasta a ser apagada + Compatibilidade + Se .T. será convertido tudo para minúsculo o nome da pasta ou .F. mantém original Retorno + .T. se foi possível apagar a pasta ou .F. se não foi **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao **** /*/ User Function zExe144() Local aArea := FWGetArea() Local cPasta := "" //Exclui uma pasta local cPasta := "C:\spool\tst1\" If DirRemove(cPasta) FWAlertSuccess("A pasta '" + cPasta + "' foi excluida com sucesso", "Teste 1 DirRemove") Else FWAlertError("Falha ao excluir a pasta '" + cPasta + "' ", "Teste 1 DirRemove") EndIf //Exclui uma pasta dentro da Protheus Data cPasta := "\system\tst2\" If DirRemove(cPasta) FWAlertSuccess("A pasta '" + cPasta + "' foi excluida com sucesso", "Teste 2 DirRemove") Else FWAlertError("Falha ao excluir a pasta '" + cPasta + "' ", "Teste 2 DirRemove") EndIf FWRestArea(aArea) Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.