Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Setup Wizard
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Miscellaneous
Thread ID:
00228103
Message ID:
00228343
Views:
14
>>
>>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
>
>
>So You're making your own setup program from scratch? I'm sorry, but I need more explaination as where, or when to put that code.

No I dont make my own setup program. What I do is use the VFP Network setup to create its files out on our network (the cab files). I instruct the user to go to a certain drive adn directory where they will find the setup.exe. They run the setup.exe to have my application setup locally on their machine. Now when I fix any bugs or make enhancements I run the VFP setup to create the files on the network. The above code in my app check the network cab files and if they are more recent than the user exe my app comes up with a message box telling them to go to that drive and directory to reinstall their application. This way they dont run an old version.

Hope this helps.
Bret Hobbs

"We'd have been called juvenile delinquents only our neighborhood couldn't afford a sociologist." Bob Hope
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform