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
If it's not broken, fix it until it is.
My Blog