Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Setup Wizard
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Divers
Thread ID:
00228103
Message ID:
00228298
Vues:
11
>Greetings all!
> ARGH! I've tried doing a search here for the above title and it keeps telling me that I don't have access to the VFP engine or something or other...sooo, HELP!:D
> I'm distributing an app accross a network, and I'm just using a directory that can be accessed from any workstation. Here's the trick, I want the setup program to overwrite my program all the time, since it's currently in beta, and I don't want them to have the previous(buggy) version. Currently, if the file size of the newer file is the same as the older version, it won't overwrite it; I've had one instance where it won't overwrite the previous version PERIOD, we finally had to goto that workstation and manually delete the file before it would install correctly.
> Is there a switch or workaround? Is there a better way?

I use the following code to prompt me that the app needs to be reinstalled:

* Lets check to see to the user's exe is older than the CAB file that they install
* from, if it is then the users application needs to be reinstalled
LOCAL lcSetupDirectory, lcLocalExe, aMyLocalCopy, aNetCopy
DIMENSION aMyLocalCopy(1)
DIMENSION aNetCopy(1)
=ADIR(aMyLocalCopy,'.\CODE40.EXE')
* This is the location on the network where we keep the Net setup files
=ADIR(aTheNetCopy,'\\402FS1\DATA\VFAPPS\VFPCODE40SETUP\NETSETUP\SETUP1.CAB')
IF DTOS(aTheNetCopy[1,3])+aTheNetCopy[1,4] > DTOS(aMyLocalCopy[1,3])+ aMyLocalCopy[1,4]
* Net copy is more recent
* We will set flag then the main program can handle informing the user
.lAppNeedsReinstalled = .T.
ENDIF
Bret Hobbs

"We'd have been called juvenile delinquents only our neighborhood couldn't afford a sociologist." Bob Hope
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform