Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Problem with the File Command
Message
 
 
À
28/01/2002 04:35:33
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00611357
Message ID:
00611460
Vues:
25
As I sad, it'll return .t. if 'data.dbf' exists antyhere along VFP search path. You can use ADIR() function instead.
PROCEDURE IsFileFound
LOCAL laTemp	
 IF ADIR(laTemp, This.cFileName) > 0
	messagebox ( 'Found')
 ELSE
        messagebox ('Not Found')
 ENDIF
ENDPROC
>DEFINE CLASS TestFile as custom
>
>cFileName =''
>
> PROCEDURE IsFileFound
>
> IF FILE(This.cFileName) = .T.
> messagebox ( 'Found')
> ELSE
> messagebox ('Not Found')
> ENDIF
>
>
>ENDPROC
>
>oFile = CREATEOBJECT('testfile')
>oFile.cFileName = 'A:\data.dbf'
>oFile.isFileFound
--sb--
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform