aFiles[1000, 4]
>Hi Sergey. I found this code in VFP help and modified it to fit my situation. Oddly, it works.>DIMENSION aFiles[1] >AGETFILEVERSION(aFiles,"VFP9.EXE") >? EVAL("0x"+LEFT(aFiles[15],4)) >** Returns 1033 for US version >>
>>GTBversion = aFiles[4]
>>
>>>Thanks Tore. Your lead led me to write this . . . which works for what I need.>>>Private GTBversion >>>DIMENSION aFiles[1] >>>AGETFILEVERSION(aFiles,"GTB.EXE") >>>GTBversion = aFiles(15,4) >>>>>>
>>>>>Object.VersionNumber[ = cBuildNumber] >>>>>>>>>>With no success so far.
>>>>=AGETFILEVERSION(temp,'yourfile.exe') >>>>thisform.AddProperty('version',temp(4)) && Thisform.version= version number >>>>