Dear Sir,

Yes, TEMP is a subfolder of AHSAN as

D:\AHSAN\TEMP && That is complete path

I have tested your following codes

ADIR(aFileList, "d:\ahsan\TEMP\*.DBF")  && I changed it

FOR i = 1 TO ALEN(aFileList, 1)

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

   IF (iRecords = 0)
      DELETE FILE ("d:\ahsan\TEMP\" + cTable)
   ENDIF

ENDFOR

It shows following error message

File 'C:\program filles\microsoft visual foxpro 7\200401.dbf' does not exist.

May following line is creating problem

USE (cTable) IN 0

Please modify codes.

Thanks in advance