Peter,
When I supplied the full path to these two files, they gave back the proper versions. On my machine:

PrintVersion1DllOcx( "c:\program files\Common Files\Microsoft Shared\VFP\vfp7r.dll" ) 
PrintVersion1DllOcx( "c:\program files\Common Files\Microsoft Shared\VFP\vfp7renu.dll" )

Rick

>Hi,
>
>I'm using aGetFileVersion() to check/display the version numbers of certain DLL's and OCX's. I have two questions:
>
>1 On my machine I have no success with Vfp7r.dll (my VFP is 7). Is it displayed on your machine?
>
>2 How can I know for sure that these are the DLL's/OCX's that are used, most notably the runtime files?
>
>Help is very welcome.
>
>

>PROCEDURE PrintVersionDllsOcxs
>	PrintVersion1DllOcx( "vfp6r.dll" )
>	PrintVersion1DllOcx( "vfp6renu.dll" )
>	PrintVersion1DllOcx( "vfp7r.dll" )
>	PrintVersion1DllOcx( "vfp7renu.dll" )
>	PrintVersion1DllOcx( "comctl32.ocx" )
>	PrintVersion1DllOcx( "mscomctl.ocx" )
>	PrintVersion1DllOcx( "msvcr70.dll" )
>	PrintVersion1DllOcx( "oleaut32.dll" )
>	PrintVersion1DllOcx( "olepro32.dll" )
>	PrintVersion1DllOcx( "asycfilt.dll" )
>	PrintVersion1DllOcx( "msvcrt.dll" )
>	RETURN
>	
>FUNCTION PrintVersion1DllOcx
>	lparameter tcFile
>	local lnRetVal
>	local array laFileVer[ 1 ]
>	? padr( tcFile, 15 )
>	lnRetVal = aGetFileVersion( laFileVer, tcFile )
>	?? iif( lnRetVal = 0, '?', laFileVer[ 4 ] )
>	RETURN
>