Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Checking for existing files
Message
 
À
01/05/2000 18:19:18
Charles Richard
Nvo Management Systems
Boisbriand, Québec, Canada
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00363833
Message ID:
00365011
Vues:
90
>Checked it out. Gotta love the "resolution" ...
>
>Thanks
>C.R.

Yeah!< s > I think I'd rather wrap it.
FUNCTION FileEx

  LPARAMETER tcfilename
  
  LOCAL llresult, lcpath
  IF EMPTY(JUSTPATH(tcfilename))
    llresult = FILE(tcfilename)
  ELSE
    lcpath = SET('PATH')
    SET PATH TO
    llresult = FILE(tcfilename)
    SET PATH TO (lcpath)
  ENDIF
  RETURN llresult
ENDFUNC
Since it is a known issue, and applies (according to the KB article) only to VFP 6.0, I'd be surprised if it wasn't fixed in the next version.
George

Ubi caritas et amor, deus ibi est
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform