Thanks Al, Martina & Naomi for your suggestions and the clues they provided. The final solution I came up with is:

lcDeleteOlder = "20100101"   && <DeleteTriggerDate>
LOCAL ARRAY laFiles[1]

? ADIR(laFiles, (FILEPATH+"\*.dbf"))
CREATE CURSOR DelFiles (fName C(254))
APPEND FROM ARRAY laFiles FOR fName < lcDeleteOlder
SCAN
	DELETE FILE DelFiles.cFName
ENDSCAN

>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?