Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to compare EXE files both on server and client PC's
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00931258
Message ID:
00931264
Views:
22
Here:
#define FILE_SIZE    2
#define FILE_DATE    3
#define FILE_TIME    4
#define FILE_VERSION 4


sever_exe = "path_to_server_exe\ExeName.EXE"  && write full path to exe on server
local_exe = "path_to_local_exe\ExeName.EXE"   && write full path to exe on local PC

IF ADIR("server_arr", sever_exe) # 1
   ** There is no (or more then 1 exe?) on server
   ** error message
ENDIF

IF ADIR("local_arr", local_exe) # 1
   ** There is no (or more then 1 exe?) on local PC
   ** error message
ENDIF

=aGetFileVersion(serverVer,server_exe) 
=aGetFileVersion(localVer,local_exe) 

IF server_arr[FILE_SIZE]   # local_arr[FILE_SIZE] .OR.;
   server_arr[FILE_DATE]   # local_arr[FILE_DATE] .OR.;
   server_arr[FILE_TIME]   # local_arr[FILE_TIME] .OR.;
   serverVer[FILE_VERSION] # localVer[FILE_VERSION]

************* The EXEs are different do whatever you want
************  with them

ENDIF
HTH
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform