Discussion :

[belfaigore]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Theocourant]

Bonjour,

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

Ensuite, as-tu essayé ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cela passera peut-être

+

Théo

[belfaigore]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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à.