>oFiler = createobject('filer.fileutil') >tcCursorName='crsFiles' >Create cursor (tcCursorName) ; > (filepath c(100), filename c(50), filesize i, fattr i, created t, accessed t, modified t) >With oFiler > .SearchPath = 'c:\myPath' > .Subfolder = 1 && Include subfolders > .SortBy = 1 > .FileExpression = '*.*' > .Find(0) > For ix=1 to .Files.Count > With .Files(ix) > If !(bittest(.Attr,4) and .Name = '.') > Insert into (tcCursorName) ; > (filepath, filename, filesize, fattr, created, accessed, modified) ; > values ; > (.Path, .Name, .Size, .Attr, ; > Num2Time(.DateTime), ; > Num2Time(.LastAccessTime), ; > Num2Time(.LastWriteTime)) > Endif > Endwith > Endfor >Endwith >*-- Converts a time in numeric format to datetime >Procedure Num2Time > Lparameters tnFloat > Return dtot({^1899/12/30}+int(tnFloat))+86400*(tnFloat-int(tnFloat)) >Endproc >Cetin