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

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

	Description
Retour à la liste L'auteur Francis Faure 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é 9232 fois Niveau débutant Version(s) Foxpro : VFP 9.0
	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.

Contributions > 01 - PRG : Programmation