ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Getfile() : Récupérer le nom exact sur disque avec FSO   



L'auteur

Francis Faure
France France
Membre Actif (personne physique)
# 0000000001
enregistré le 11/10/2004

http://www.wanagain.net
56 ans
Faure Francis
de la société Design Or Decline
Fiche personnelle


Note des membres
20/20
1 vote


Contributions > 01 - PRG : Programmation

Getfile() : Récupérer le nom exact sur disque avec FSO
# 0000000726
ajouté le 10/11/2009 13:49:04 et modifié le 10/11/2009
consulté 8840 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0

Description

Bonjour,

Je vous propose une petite contribution pour répondre à une question en newsgroup:

Getfile() retourne le chemin et le fichier en majuscules,

Ci-après le moyen de récupérer le chemin et nom exact sur disque avec FSO.

Cordialement

Francis FAURE

Code source :
* Getfile() : Récupérer le nom exact sur disque avec FSO
* A Voir la contribution de Mike au sujet de "FSO"
* http://www.atoutfox.org/articles.asp?ACTION=FCONSULTER&ID=0000000061


LOCAL lsFile as String
LOCAL loFSO as Scripting.FileSystemObject
LOCAL loFile as Object

lsFile = GETFILE()
IF NOT EMPTY(m.lsFile)
  loFSO = CreateObject("Scripting.FileSystemObject")
  loFile = loFSO.GetFile(m.lsFile)
  m.lsFile = loFSO.GetAbsolutePathName(m.loFile)
  loFSO = null
  loFile = Null
  ? m.lsFile
endif



Commentaires
le 11/12/2009, JpG a écrit :
Merci Francis.
GetFile() + GetAbsolutePathName() me pose moins de problème que mscomdlg.commondialog... ou j'ai de erreurs OLEx80040112.


Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3