General information
Category:
Coding, syntax & commands
>
>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.
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only