Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Error with Agetfileversion
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows 7
Miscellaneous
Thread ID:
01487359
Message ID:
01487365
Views:
41
when i say fail, i mean the "IF" statement is failing and the messagebox fires.

>Are you getting an error? If yes, what is the error?
>
>>workstation have Windows 7 Professional and all are able to retrieve the version number of exe file except 1
>>
>>Code is
>>----------------------------------------------
>>
>>lcExeFileName = SYS(5)+SYS(2003)+'\path\programname.exe'
>>
>>If Agetfileversion(aCver,lcExeFileName) > 0 && we have version
>> this.Caption = ALLTRIM(this.Caption) + ' ...........ver('+ALLTRIM(aCver(4))+')'
>> this.p_version = '..ver('+ALLTRIM(aCver(4))+')'
>>ELSE
>> MESSAGEBOX('Could not get version',0+4096,'Missing Version',1500)
>> this.p_version = 'unknown'
>>ENDIF
>>
>>---------------------------------------------
>>
>>the same path and exactly the same programname.exe
>>
>>However, one workstation fails
>>
>>any suggestions on what to look for?
>>
>>thanks in advance
Previous
Reply
Map
View

Click here to load this message in the networking platform