Nesse vídeo demonstraremos a utilização da função ExtractPath, que serve para extrair o nome da pasta de uma expressão caractere.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas #Include "TOTVS.ch" /*/{Protheus.doc} User Function zExe167 Função que retorna apenas a pasta de um arquivo @type Function @author Atilio @since 19/12/2022 @obs Função ExtractPath Parâmetros + Nome do arquivo completo Retorno + Apenas a pasta **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao **** /*/ User Function zExe167() Local aArea := FWGetArea() Local cArquivo := "" Local cPasta := "" //Descobrindo a extensão do arquivo cArquivo := "C:\spool\relatorio.pdf" cPasta := ExtractPath(cArquivo) //Exibindo uma mensagem FWAlertInfo("O arquivo '" + cArquivo + "' esta na pasta '" + cPasta + "'", "Teste com ExtractPath") FWRestArea(aArea) Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.