SET DEFAULT TO GETDIR( )

LOCAL aFileList
DIMENSION aFileList(1)
ADIR(aFileList,"*.dbf")

IF ALEN(aFileList) < 2
   RETURN .F.
ENDIF

FOR i = 1 TO ALEN(aFileList, 1)

   SELECT 0
   cTable = aFileList[i, 1]
   USE (cTable)
   iRecords = RECCOUNT()
   USE

   IF (iRecords = 0)
      DELETE FILE (cTable)
   ENDIF
ENDFOR