code:

---

$sFilename="foo..bar.exe"
$sExtension=""

$iLen=Len($sFilename)
While $iLen
	If "."=SubStr($sFilename,$ILen,1)
		$sExtension=SubStr($sFilename,$iLen+1,32768)
		$sFilename=SubStr($sFilename,1,$iLen-1)
		$iLen=0
	Else
		$iLen=$iLen-1
	EndIf
Loop
"File       = " $sFilename ?
"Extension  = " $sExtension ?

---