>>
>>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