I like how you used SYS(2000) instead of ADIR() -- it avoids problem if there are enough DBFs to cause array boundary overflow.

One about possible action one might do is to make the program recursive so that you "walk" the directory hierarchy Of course, there is the potential for a problem if you run into a directory "reference loop"... (yup, I've seen it happen).