Serincino,
Here is some code that will accomplish something very similar to what jmcd0719 is suggesting
Caution: I am assuming here that you do not have a table named Indexes.dbf in your datafolder...if you do then rename the Indexes.dbf in the code below to something unique. (Cut-n-paste the code below into a prg file and run it from within VFP, when prompted for a folder go locate your data folder)
LOCAL nlength, nCount
SET DEFAULT TO GETDIR()
=ADIR(aryTables,'*.DBF')
nlength = ALEN(aryTables)
nCount = 0
IF nlength > 0
IF FILE("indexes.dbf"

USE ("indexes.dbf"

IN 0 EXCLUSIVE
ELSE
CREATE TABLE Indexes (table c(20), tag c(20), key c(100), cdx c(20))
ENDIF
SELECT INDEXES
ZAP
FOR i = 1 TO nlength STEP 5
IF UPPER(ALLTRIM(aryTables(i))) == "INDEXES.DBF"
LOOP
ENDIF
SELECT INDEXES
LOCATE FOR UPPER(ALLTRIM(INDEXES.TABLE)) == UPPER(ALLTRIM(JUSTSTEM(aryTables(i))))
IF FOUND("indexes"

DELETE FOR UPPER(ALLTRIM(INDEXES.TABLE)) == UPPER(ALLTRIM(JUSTSTEM(aryTables(i))))
ENDIF
USE (aryTables(i)) IN 0 EXCLUSIVE
SELECT (JUSTSTEM(aryTables(i)))
m.table = UPPER(ALLTRIM(ALIAS()))
m.cdx = UPPER(ALLTRIM(JUSTSTEM(CDX(1))))
FOR nCount = 1 TO 254
IF !EMPTY(ALLTRIM(TAG(nCount))) && Checks for tags in the index
m.tag = UPPER(ALLTRIM(TAG(nCount))) && Display tag name
m.key = UPPER(ALLTRIM(KEY(nCount))) && Display index expression
INSERT INTO INDEXES FROM MEMVAR
ELSE
EXIT && Exit the loop when no more tags are found
ENDIF
ENDFOR
USE IN (aryTables(i))
ENDFOR
SELECT INDEXES
PACK
Browse
ELSE
MESSAGEBOX("No Tables present in this directory!",16, "NOT A DATA DIRECTORY!"

ENDIF
Slighthaze =
NULL
[ul][li]FAQ184-2483
An excellent guide to getting a fast and accurate response to your questions in this forum.[/li][/ul]