Réponse acceptée !
bonjour;
avant tout je vous remerci pour votre collaboration.
- je travaille avec VFP9.
- effectivement mon programme ne connaissais pas le chemin des fichiers ou plus tot je l'envoyais sur un autre repertoire où il trouvais ni le begin, ni transfert.
j'ai ecris au debut de mon begin ce qui suit:
ChSys = SYS(16)
ChProgram = SUBSTR(ChSys, AT(":", ChSys) - 1)
CD LEFT(ChProgram, RAT("\", ChProgram,2))&&& j'ai remplacer le 2 par 1
SET PATH TO CLASS, FORMS, HELP, IMAGES, INCLUDE, MENUS, PRG, REPORTS
je crois que le '2' le pointais sur un autre repertoire, j'ai donc remplacer ce '2' par '1' pour tester
ChSys = SYS(16)
ChProgram = SUBSTR(ChSys, AT(":", ChSys) - 1)
CD LEFT(ChProgram, RAT("\", ChProgram,1))&&& j'ai remplacer le 2 par 1
SET PATH TO CLASS, FORMS, HELP, IMAGES, INCLUDE, MENUS, PRG, REPORTS
et ça marche
- pour la deuxieme question, j'ai rajouter au projet procedures.prg qui contient la fonction rev_pwd et dans le begin j'ai rajouter
SET PROCEDURE TO procedures.prg ADDITIVE
et maitenant quand je fais appel à rev_pwd dans begin.prg ça fonctionne mais je ne sais pas si c'est la meilleur methode.
je vous remerci encor une fois.