Hi Nick,

LOCAL lcPath,lcFile
LOCAL ARRAY laFile(1)
lcPath="e:\xx\"

lcFile=SYS(2000,lcPath+"*.*") && get first file
DO WHILE !EMPTY(lcFile)
   =ADIR(laFile,lcPath+lcFile) && Get file informations
   ?laFile(1,1),laFile(1,2),laFile(1,3),laFile(1,4)
   * Your test

   lcFile=SYS(2000,lcPath+"*.*",1) && get next file
ENDDO   

>I have a direcectory of tables, one for each month (yyyymm.dbf), which I need to cycle through and delete all those older than 30 days.
>
>SYS(2000) would let me cycle through all files in the directory and check if each one is older than the 30 days but this seems a very
inelegant way of solving this.
>
>Can anyone think of a cleaner way of achieving this?