ltStart = datetime() create cursor tempfiles ( 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 tempfiles ; values( lcDir + laFiles[i,1], laFiles[i,2], laFiles[i,3] ) endif endif endfor return