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