LOCAL lcSourceDir, lcTargetDir, lcFile, llCopyFile
SET TALK OFF
SET SAFETY OFF
SET DELETED ON
ON ERROR *
lcSourceDir = "\Installs\CR7Rt\"
CLOSE DATA ALL
USE (lcSourceDir + "Install") IN 0 SHARED NOUPDATE
SCAN
llCopyFile = .F.
* Check if the file exists. Only install new version if does not exist
* or existing version is older than source version
lcTargetDir = "C:" + ALLTRIM(Install.Location)
lcFile = ALLTRIM(Install.FileName)
WAIT WINDOW NOWAIT ("Processing " + lcFile)
IF !DIRECTORY(lcTargetDir)
MD (lcTargetDir)
ENDIF
DO CASE
CASE !FILE(lcTargetDir + lcFile)
llCopyFile = .T.
CASE FDATE(lcTargetDir + lcFile, 1) < FDATE(lcSourceDir + lcFile, 1)
llCopyFile = .T.
ENDCASE
IF llCopyFile
COPY FILE (lcSourceDir + lcFile) TO (lcTargetDir + lcFile)
ENDIF
IF Install.Register
lcCommand = "RUN /N " + lcSourceDir + "REGSVR32 /s " + lcTargetDir + lcFile
&lcCommand.
ENDIF
ENDSCAN