* ADIR() method of recursively building the file list - Dave Frankenbach >>ltStart = datetime() >> >>create cursor filesADIR ( cFilename c(80), nSize n(10), dMod d ) >> >>RecurseFolder( "c:\" ) >>? datetime() - ltStart >> >>index on nSize tag nSize >> >>browse nowait >> >>function RecurseFolder( lcDir ) >>local i,n, laFiles[1] >> >>?? "." >>n = adir( laFiles, lcDir + "*.*", "shd" ) >> >>for i = 1 to n >> if ( left( laFiles[i,1], 1 ) != '.' ) >> if ( "D" $ laFiles[i,5] ) >> RecurseFolder( lcDir + laFiles[i,1] + "\" ) >> else >> insert into filesADIR ; >> values( lcDir + laFiles[i,1], laFiles[i,2], laFiles[i,3] ) >> endif >> endif >>endfor >>return >> >>