Este blog é originalmente para ser um banco de funções e procedimentos públicas de qualquer linguagem, como a minha especialidade é liguagens Microsoft® vou me ater a elas, mas caso haja pessoas interessadas em passar funções ou procedimentos de outras linguagens, sintam-se a vontade para envia-las a mim.
segunda-feira, 26 de novembro de 2007
GetFileExt()
Retorna a extensão do arquivo em um caminho.
Function GetFileExt(ByVal p) GetFileExt = Right(p, Len(p) - InStrRev(p, ".")) End Function
Nenhum comentário:
Postar um comentário