>* 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") > >>