Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Drop free table
Message
 
À
13/05/2006 03:56:42
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP
Network:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01121605
Message ID:
01121613
Vues:
13
>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
_______________________________________________________________
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform