tr6boy,
OK, I tossed together the code you'd need:
code:

Break on
$Index = 0
$X = 0
Dim $FNArray[9]
$FNewest = 0
$FileName = Dir("C:\temp\lpt$vpn.*")
While $FileName <> "" and @ERROR = 0
	If Val(Substr($FileName,Instr($FileName,".")+1,3)) <> 0
		$FNArray[$Index] = Val(Substr($FileName,Instr($FileName,".")+1,3))
		$Index = $Index + 1
	EndIf
	$FileName = Dir()
Loop
While $X < $Index 
	If $FNArray[$X] > $FNewest
		$FNewest = $FNArray[$X]
	EndIf
	$X = $X + 1
Loop
? $FNewest
Get $
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.