Thanks Les,

That works good on v3.63 for me.

Here is the modified code so that it works when the OS has been installed on a different drive.

code:
Break on
$ProgFiles = READVALUE("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "ProgramFilesDir")
$VirDefFiles = "\Common Files\Symantec Shared\VirusDefs\*.*"
$CombinedPath = $ProgFiles+$VirDefFiles
$Index = 0
$X = 0
Dim $FNArray[9]
$FNewest = 0
$NewLine ="Current NAV Virus Definition File Date: "
$FileName = Dir($CombinedPath)
While $FileName <> "" and @ERROR = 0
	If Val($FileName) <> 0
		$FNArray[$Index] = Val($FileName)
		$Index = $Index + 1
	EndIf
	$FileName = Dir()
Loop
While $X < $Index 
	If $FNArray[$X] > $FNewest
		$FNewest = $FNArray[$X]
	EndIf
	$X = $X + 1
Loop
$VPDate = Substr("$FNewest",5,2) + "/" + Substr("$FNewest",7,2) + "/" + Substr("$FNewest",1,4)
? "Your NAV Definition files are dated: " $VPDate

Thanks again Les