;; | ----------------------------------------------------------------------------
;; | MI_getext 
;; | ----------------------------------------------------------------------------
;; | Function : Remove the path information from a complete path string
;; | Argument : 'fstr'  - Full Path String with filename
;; | Returns  : Returns the file name without the path
;; | Updated  : June 25, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------

(defun MI_GetExt (fstr / len pos tmp ext)
(setq
	tmp fstr
	ext nil
)
(if fstr
(progn
	(setq
		len (strlen fstr)
		pos (ST_lsrch fstr ".")
	)

	(if pos
		(setq ext (substr fstr (1+ pos)))
	)
))
 ext
)