>clear >olddate = fdate('c:\program files\dfds\trp manager\trp.exe',1) >newdate = fdate('\\tpdfiles\data\dfreeman\applications\trpmanager\trp.exe',1) > >if newdate > olddate > ans = messagebox("There is a newer version of TRP Manager available. " + ; > "Would you like to copy it to your workstation now?",3) > do case > case ans = 6 > copy file '\\tpdfiles\data\dfreeman\applications\trpmanager\trp.exe' to ; > 'c:\program files\dfds\trp manager\trp.exe' > case ans = 2 > cancel > endcase >endif > >do 'c:\program files\dfds\trp manager\trp.exe' >>
.... case ans = 6 lnFle = FOPEN('c:\program files\dfds\trp manager\trp.exe',12) DO WHILE lnFle < 0 MessageBox([Please, Close the applicaton]) lnFle = FOPEN('c:\program files\dfds\trp manager\trp.exe',12) ENDDO FCLOSE(lnFle) copy file '\\tpdfiles\data\dfreeman\applications\trpmanager\trp.exe' to ; 'c:\program files\dfds\trp manager\trp.exe' ...