http://www.scriptlogic.com/kixtart UDF: GetFileExt()

GetFileExt()
http://www.scriptlogic.com/kixtart/FunctionLibrary_FunctionList.aspx

9 January 2002	GetFileExt()
Author	ScriptLogic Corporation
Action	Returns only the filename's extension, given a filespec.
Syntax	GetFileExt ( "filespec" )
Parameters	filespec (Required / String) The filespec you wish to extract the filename's extension from.
Remarks	Complimentary to the GetFileName() and GetFilePath() UDFs. Requires KiXtart 2001 (4.0) final due to InstrRev() function.
Returns	Returns the filename's extension extracted from the filespec. If there is no extension, an empty string is returned.
Dependencies	None.
Examples	? GetFileExt('%temp%\myfile.txt') ? GetFileExt('myfile.txt') ? GetFileExt('\\server\share\myfile.html')
Source	FUNCTION GetFileExt ($filespec) ; Author: ScriptLogic Corporation ; Last revised: 17-Nov-2001 ; returns filename's extension ; requires that the filename has an extension DIM $dot $getfileext='' $dot=InStrRev($filespec,'.') IF $dot $getfileext=Substr($filespec,$dot+1) ENDIF ENDFUNCTION ; - GetFileExt -

original source of UDF topic. show actual FunctionLibrary list on Scriptlogic site
printer-friendly mirror of UDF topic on scripting@wanadoo.nl site