>create cursor ctableinfo (sno n(3),cname c(20), ddate d, ctime c(11)) > >mydatadir=(sys(5)+alltrim(sys(2003))+'\TABLES') > >set exclusive on >local afiles, ncount, i >dimension afiles(1,1) >ncount = adir(afiles,mydatadir+"\"+"*.*") >=asort(afiles,1) >i=1 >for i = 1 to ncount > select 0 > use mydatadir+"\"+(afiles(i,1)) again > fc=fcount() > a=mydatadir+"\"+(afiles(i,1)) > fname=justfname(a) > lupd1=fdate(a) > ltime1=ftime(a) > > insert into ctableinfo (cname,ddate,ctime); > values (fname,lupd1,ltime1) > >endfor >set exclusive off > >select ctableinfo >brow >>
CLEAR create cursor ctableinfo (sno n(3),cname c(20), ddate d, ctime c(11), dt T) mydatadir= sys(5)+alltrim(sys(2003))+'\TABLES' set exclusive on local afiles, ncount, i dimension afiles(1,1) ncount = adir(afiles,mydatadir+"\"+"*.*") =asort(afiles,1) i=1 for i = 1 to ncount *!* select 0 *!* use mydatadir+"\"+(afiles(i,1)) again *!* fc=fcount() a=mydatadir+"\"+(afiles(i,1)) fname=justfname(a) lupd1=fdate(a) ltime1=ftime(a) dt1 = CTOT(DTOC(lupd1) + ' '+ lTime1) insert into ctableinfo (cname,ddate,ctime, dt); values (fname,lupd1,ltime1, dt1) endfor set exclusive off select ctableinfo BROWSE ltYesterday = DATETIME() - 24*60*60*60 SCAN FOR dt <= m.ltYesterday try DELETE FILE (FORCEPATH(m.myDataDir) + cName) CATCH TO loError =MESSAGEBOX('Can not delete file ' + cName + ' because of ' + loError.message,0, 'Error deleting file') ENDTRY ENDSCAN