>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?

Try

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