Sir, I Prepared these codes

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

See attached image

Now the question is how to delete files old than 24 hours?