- "FILE: Use CDX(),TAG(), and SYS(14) Function to Create an Index Utility".
Note: Deprnding on your version of VFP, there are additional ways to get the same and more information on your index expressions. e.g see the ATAGINFO( ) Function if your VFP has it.
Hope this will help you my frend...
*--------------------------
SET EXCLUSIVE ON
SET DELETED Off
SET SAFETY OFF
xfrm_dbf= ""
XTARGET = "dbf_scod"
SET TALK OFF
crea table (XTARGET+".alx") (table_name c(20),table_path c(100))
clos data
use (XTARGET+".alx") alia temp IN 0
dum = ADIR(jhun,xfrm_dbf+'*.dbf') && get all dbf and store into array
for x = 1 to dum
dum3 = xfrm_dbf + allt(jhun[x,1])
use (dum3) in 2
if !empt(alias(2))
sele 2
xcnt=0
do whil .t.
xcnt = xcnt+1
if(key(xcnt) = "your xpression"
*** change your expression
*** like 'inde on blaa tag blaa
exit
endif
if(empt(key(xcnt))
exit
endif
enddo
use
endi
endf
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.