>create curs file_list1 (lcdir c(100), filename c(100), filesize n(10), filedt T ) > >TotSize1 = iFill("c:\foxwork", "file_list1") > >?TotSize1 > >Return >*----------------------------- >PROCEDURE iFILL(cRoot,file_list) > >wait wind nowa padr("Exploring "+alltr(cRoot),200) >LOCAL nNumbofDir,I, acDirAll[1,1],nCumSize,nSize,nCount > >nCumSize = 0 >nSize = 0 >cRoot=ADDBS(cRoot) > >release aa >if adir(aa,cRoot+"*.dbf")>0 > for i=1 to alen(aa,1) > IF UPPER(JUSTSTEM(aa[i,1]))#"FOXUSER" > insert into (file_list) values (cRoot,aa[i,1],aa[i,2],CTOT(dtoc(aa[i,3])+" "+aa[i,4])) > ENDIF > endfor >endif > >nNumbofDir = ADIR(acDirAll,cRoot + "*.*","D") >if nNumbofDir>=0 > =ASORT(acDirAll) > FOR I = 1 TO nNumbofDir > IF "D" $ acDirAll[i,5] > IF LEFT(acDirAll[i,1],1) != '.' > nSize = ifill(cRoot + acDirAll[i,1] + '\',file_list) > ENDIF > ENDIF > nCumSize = nCumSize + acDirAll[i,2] > ENDFOR >endif > >RETURN nCumSize >>