>>>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,
for the sake of brevity 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