CLOSE ALL Clear ALL #Include MsgBox.H IF fdate('c:\qdms2000\qdms2000.exe',1) < fdate('\\stdsrv01\kdrive\qa\qdms2000\qdms2000.exe',1) IF messagebox("Your QDMS application software requires updating."+chr(13)+chr(13)+; "This process will only take a few seconds."+chr(13)+chr(13)+"Press OK to update, or CANCEL to return to Windows.",; D_Nexclamation+d_nokcancel,"QDMS 2000 Software Update")=d_nok SET safety off COPY file ('\\stdsrv01\kdrive\qa\qdms2000\qdms2000.exe') to ('c:\qdms2000\qdms2000.exe') COPY file ('\\stdsrv01\kdrive\qa\qdms2000\readme.txt') to ('c:\qdms2000\readme.txt') SET safety on IF messagebox("Update complete!"+chr(13)+chr(13)+"Would you like to view the README file for the updated software?",; D_Ninformation+d_nyesno,"QDMS 2000 Software Update")=d_nyes RUN /n1 c:\windows\notepad.exe c:\qdms2000\readme.txt ENDIF ELSE QUIT ENDIF RUN /n c:\qdms2000\qdms2000.exe ELSE RUN /n c:\qdms2000\qdms2000.exe ENDIF