App.Path .... Hummm Bizarre

Question

J'ai fait une erreur de manip. Si le post est en double d&#233;sol&#233;.

C'est la premi&#232;re fois que j'ai ce cas.

J'ouvre mon projet VB6 (avec acc&#232;s &#224; une base ACCESS). Je lance un test avec F5.
Je cherche la base comme cela
App.Path & "\Base.mdb"

Jusque l&#224; aucun probl&#232;me. Je fais mes essais et je ferme l'appli. 
Retour &#224; l'IDE. Je fais quelques modif et je relance un test avec F5.

Et l&#224;... App.Path &#224; chang&#233; il se trouve dans le dossier parent du premier.

Dans mon cas, la premiere fois que je fais F5 :
App.Path = c:\Documents and settings\David\MonProgramme\Source\
La 2&#232;me fois :
App.Path = c:\Documents and settings\David\MonProgramme\

Cela m'oblige &#224; fermer et ouvrir l'IDE &#224; chaque essai de l'appli 

Quelqu'un sait-til se qu'il se passe ?

Merci d'avance
Bonne prog
++

cs_DARKSIDIOUS · Answer

Il est possible que tu modifie le r&#233;pertoire courant sans y faire gaffe, et VB le conserve, en appelant par exemple la fonction de l'API SetCurrenfDirectory

_____________________________________________________________________

cs_Jack · Answer

Salut
Je viens de faire l'essai.
Ceci est d&#251; au fait que tu modifies le r&#233;pertoire courant avec un ChDir.
Avant de faire cette manip, il faudrait m&#233;moriser le r&#233;pertoire original, et dans le Unload de ta forme principale, refaire un ChDir vers le r&#233;pertoire original m&#233;moris&#233;.
PS : Utiliser ChDrive si n&#233;cessaire

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

bouv · Answer

Non le App.Path ne doit pas changer, mais comme tu le souligne le CurDir peut lui changer. 
Dans mon cas se n'est non pas avec l'API SetCurrenfDirectory mais avec un simple CommonDialog.

En fait je viens de trouver mon erreur, je suis vraiment un naze.

Je faisais :
Lieu_Base = App.Path

Mais comme j'ai r&#233;jout&#233; une deuxieme base par la suite
J'ai renomm&#233; en : Lieu_Bases (avec un S)
Et j'ai oubli&#233; de faire la modif dans
 
MaBase.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Lieu_Base & "Base.mdb"

Donc Lieu_Base = ""
Je te passe la suite tu la connait.

Merci quand m&#234;me.
Bonne prog
++

bouv · Answer

D&#233;sol&#233; jack on vient de se croiser. Mais non je n'utilise pas de Ch

Bonne prog
++

bouv · Answer

Dir.
A vrai dire je ne l'ai jamais utilis&#233;.

Merci quand m&#234;me pour votre aide

Bonne prog
++

App.Path .... Hummm Bizarre

5 réponses

Discussions similaires