=adir() - Column5 or
= fdate() or
= ftime() or
= lupdate() or
[tt]
create a table "dbfalter" with 2 fields dbfname (c,20) datetime (datetime)
index on dbfname tag dbfname
procedure checkdbfalter
lcalias=alias()
if !used("DBFALTER"

use dbfalter order dbfname in 0
endif
llreturn = .f.
if seek(lcalias , "DBFALTER"

if DBFALTER.DATETIME != fdate(lcAlias+".dbf" , 1)
replace DBFALTER.DATETIME with fdate(lcAlias+".dbf" , 1)
llreturn = .t.
endif
else
select DBFALTER
append blank
replace DBFALTER.DBFNAME with lcAlias, DBFALTER.DATETIME with fdate(lcAlias+".dbf" , 1)
select (lcAlias)
llreturn = .t.
endif
return llreturn
endproc
[/tt]
There may be about 10 other ways but this is the first thing that came to mine (as if I have one) [sig]<p>David W. Grewe<br><a href=mailto

ave@internationalbid.net>Dave@internationalbid.net</a><br><a href= > </a><br> [/sig]