>>>>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
>
>
>Rich,
>Short is without verification for .cdx and .fpt
>

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

Shortest is:
m.PathToFile = "c:\yourdir\"

lcSearchFile = m.PathToFile+"aa" &&& example lcSearchFile = c:\yourdir\aa.dbf
IF NOT EMPTY(SYS(2000,m.lcSearchFile+".dbf"))
   ERASE (m.lcSearchFile+".*")
ELSE
   MESSAGEBOX("Not Found")
ENDIF

:o)