[VB6]Probleme d'execution avec la commande Shell

Bonjour,

J'utilise un programme VB6 qui execute des programmes. Pour ce faire j'utilise la commande Shel :

Code:

---

1 2	Dim ProgrammeID as long ProgrammeID = Shell("C:\MonDossier\Monappli.exe Param1",vbNormalFocus)

---

Le probleme étant que le repertoire d'execution du programme "MonAppli" est celui du programme appellant, resultat "MonAppli.exe" genere une erreur car il ne trouve pas le fichier "Param1" qui se trouve dans le dossier de "MonAppli"
Comment puis-je faire pour modifier le repertoire d'execution de la commande Shell?
PS : Je pense qu'il s'agit d'une variable d'environnement car c'est la même variable qu'utilise la CommonDialog.ShowOpen lors de sont ouverture pour afficher le dossier en cours.

Bonjour,

Une petite question tout d'abord : ton fichier Param1 il n'a pas d'extension ?

Ensuite, as-tu essayé ceci :

Code:

---

1 2	Dim ProgrammeID as long ProgrammeID = Shell("C:\MonDossier\Monappli.exe C:\MonDossier\Param1",vbNormalFocus)

---

Cela passera peut-être

+

Théo

En fait le probleme été que mon programme execute la commande Shell et par consequent l'application dans le dossier courant, voila pourquoi il ne trouve pas le fichier attaché par le paramètre Param1, qui se trouve dans le dossier de l'application. Pour résoudre se probleme j'utilise le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim OldCurDir,ExecFileAppli as String Dim ProgrammeID as Long   ExecFileAppli = "C:\MonDossier\MonAppli.exe"   OldCurDir = Cur Dir ' Sauvegarde le dossier courant   ChDrive ExecFileAppli 'change le lecteur courant ChDir ExecFileAppli 'Change le dossier courant   ProgrammeID = Shell(ExceFileAppli,vbNormalFocus)   ChDrive OldCurDir 'Rétabli le dossier courant précédent ChDir OldCurDir

---

PS : J'ai réecrit le code de tête mais le principe est là.