>>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") ENDIFor 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") ENDIFbut be careful because you would delete any programs, screens, reports, etc. with the same name from that directory