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