* determine most recent exe file and update client's version to
* new version...
_screen.Visible = .f.
SET DEFAULT TO q:\eanew\project\
PUBLIC newdate,newtime,newfile,olddate,oldtime,oldfile
execount = ADIR(newexe,"matest.exe")
newdate = DTOC(newexe[1,3])
newtime = newexe[1,4]
newfile = CTOT(newdate+" "+newtime)
execount = ADIR(oldexe,"matest.exe")
olddate = DTOC(oldexe[1,3])
oldtime = oldexe[1,4]
oldfile = CTOT(olddate+" "+oldtime)
IF newfile - oldfile > 0
* MESSAGEBOX("Copy the file!")
SET SAFETY off
WAIT WINDOW 'Copying latest version of program, please wait...' nowait
COPY FILE "q:\eanew\project\matest.exe" TO "c:\program files\computing resources\default\matest.exe"
MESSAGEBOX("Newest version of lotting program successfully copied!","Please Note...")
WAIT clear
ELSE
MESSAGEBOX("Your program is up to date","Please note...")
ENDIF
SET DEFAULT TO q:\eanew
_screen.Visible = .t.