Donald Thanx,
This code will be very helpful. I developed a simular process of very ugly code continueing to use ADIR when not over-limit, but like this much better.


>Edgar

>
>CREATE CURSOR c_Files ;
> (FileName C(29), FileSize I, DateCreated T, ;
> LastAccessed T, LastModified T )
>
>oFSO = CREATEOBJ('Scripting.FileSystemObject')
>oFolder = oFSO.GetFolder(tcFolder)
>lnFiles = oFolder.Files.Count
>
>FOR EACH oFile IN oFolder.Files
> lcFileName = oFile.Name
> lnFileSize = oFile.Size
> lddatecreated = oFile.DateCreated
> ldlastAccess = oFile.DateLastAccessed
> ldlastmodified = oFile.DateLastModified
> INSERT INTO c_Files (FileName, FileSize, DateCreated, ;
> LastAccessed , LastModified );
> VALUES( lcFileName, lnFileSize, ldDateCreated, ;
> ldlastAccess, ldlastmodified)
>ENDFOR