Morning all

Ive wrote this simple check to get file versions from a couple of products but for some reason getfileversion doesnt seem to want to write to the log file?
Ive looked around but cant find anything? What am i doing wrong?

Any help would be appreciated,

Regards

Aaron

Code:
 
Break on

Open (1,"%systemdrive%\Temp\listpc.txt")
ReadLine(1)
ReadLine(1)
ReadLine(1)

Do
  	$CompName=ReadLine(1)
	$compname = SubStr($compname,1,8)
	;$compname = Trim($compname)
	
	?"$compname"

$info = "C_Drive\Infoconn\accmgr\accmgr.exe"
$MyExtra = "C_Drive\program files\E!pc\sessions\experian.edp"
$ExpIrma = "C_Drive\infoconn\accmgr\IRMAMAIN.XWQ"

If Exist("$CompName\$info")=1	
		$InfoVer=GetFileVersion("$CompName\$info")
		WriteProfileString("%systemdrive%\Temp\attachmate.Log","$Compname","16 bit Infoconnect Accessory Manager"," $InfoVer ")
   EndIf

If Exist("$CompName\$MyExtra")=1	
		 $MyExtVer=GetFileVersion("$CompName\$MyExtra")
		WriteProfileString("%systemdrive%\Temp\attachmate.Log","$Compname","16 bit IRMA 3270 emulator(Experian) "," $MyExtVer ")
   EndIf
  
If Exist("$CompName\$ExpIrma")=1	
		$ExpIrma=GetFileVersion("$CompName\$ExpIrma")
		WriteProfileString("%systemdrive%\Temp\attachmate.Log","$Compname","32 bit myExtra 3270 emulator (Experian)"," $ExpIrma ")
   EndIf

Until $CompName = ""
_________________________
If at first you don't succeed, try again. Then quit. There's no use being a damn fool about it. - W.C Fields