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)) EndprocCetin