>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"
IF FILE(m.lcSearchFile)
DELETE FILE(m.lcSearchFile)
ELSE
MESSAGEBOX("Not Found")
ENDIF
_______________________________________________________________
Testing displays the presence, not the absence of bugs.
If a software application has to be designed, it has to be designed correctly!
_______________________________________________________________
Vladimir Zografski
Systems Analyst