>>hi all,
>>
>>is there away to drop free table if found
>>as
>>

>>locate for aa.dbf
>> if found()
>>   drop table aa
>>else
>>  mesagebox("not found")
>>endif
>>

>>thanks
>
>

>m.PathToFile = "c:\yourdir\"
>lcSearchFile = m.PathToFile+"aa.dbf" &&& example lcSearchFile = c:\yourdir\aa.dbf
>IF FILE(m.lcSearchFile)
>   DELETE FILE(m.lcSearchFile)
>ELSE
>   MESSAGEBOX("Not Found")
>ENDIF
>

Don't forget about the CDX and FPT files as well. You can either code them specificly

m.PathToFile = "c:\yourdir\"
lcSearchFile = m.PathToFile+"aa" &&& example lcSearchFile = c:\yourdir\aa.dbf
IF FILE(m.lcSearchFile+".dbf")
   DELETE FILE(m.lcSearchFile+".dbf")
   IF FILE(m.lcSearchFile+".cdx")
      DELETE FILE(m.lcSearchFile+".cdx")
   ENDIF
   IF FILE(m.lcSearchFile+".fpt")
      DELETE FILE(m.lcSearchFile+".fpt")
   ENDIF
ELSE
   MESSAGEBOX("Not Found")
ENDIF

or you could drop them all in one statement

m.PathToFile = "c:\yourdir\"
lcSearchFile = m.PathToFile+"aa" &&& example lcSearchFile = c:\yourdir\aa.dbf
IF FILE(m.lcSearchFile+".dbf")
   DELETE FILE(m.lcSearchFile+".*")
ELSE
   MESSAGEBOX("Not Found")
ENDIF

but be careful because you would delete any programs, screens, reports, etc. with the same name from that directory