Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to compare EXE files both on server and client PC's
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00931258
Message ID:
00931264
Vues:
24
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.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform