>Hi All,
>i am designing for Database&DBF file maintenance form and using getfile(),adir() for this ( i am thinking globally for use every applicaion). dbf's selection button code like below
>
>

>* cdir,lcselected is public variable on form init
>cdir=getdir()
>
>CREATE CURSOR dosyalar (dosyaadi c(30),boyut c(10),degtar c(10),degzaman c(10),nicelik c(3))
>lcselected=""
>
>gnDbcnumber = ADIR(gaDatabase, '&cdir.'+'*.DBF')  && Create array
>
>CLEAR
>FOR nCount = 1 TO gnDbcnumber  && Loop for number of databases
>SELECT dosyalar
>*   ? gaDatabase(nCount,1)  && Display database names
>lcdosya=gaDatabase(nCount,1)
>lcboyut=gaDatabase(nCount,2)
>lcdtar=gaDatabase(nCount,3)
>lcdzaman=gaDatabase(nCount,4)
>lcnicelik=gaDatabase(nCount,5)
>INSERT INTO dosyalar(dosyaadi,boyut,degtar,degzaman,nicelik) ;
>values(TRANSFORM(lcdosya),TRANSFORM(lcboyut),TRANSFORM(lcdtar),TRANSFORM(lcdzaman),TRANSFORM(lcnicelik))
>ENDFOR
>GO top
>thisform.grid1.RecordSource ="dosyalar"
>thisform.grid1.SetFocus
> thisform.grid1.refresh
>lcselected= cdir + dosyalar.dosyaadi
>
>thisform.Refresh
>thisform.cmdtamamdbf.Enabled =.t.
>
>

>
>

>USE &lcselected EXCLUSIVE
>PACK
>MESSAGEBOX(allt("&lcselected")+" File has been maintenanced",64,"maintenace report")
>
>

>
>my question : when the user select some file i can open and pack its like above code but how can find indexed fields and reindex its in a loop ? TIA


You don't need to find. Reindex doesn't work for individual tags but for all tags. IOW doing that in a loop for each tag would be reindexing all tags n times.
Cetin