[vb6] commande shell avec un .msi

Bonjour,

Dans mon appli vb6, je souhaite lancer un .msi qui se trouve dasn un chemin construit dynamiquement.
J'ai mis le code :

Code:

---

1 2 3 4 5 6

MonPath= chemin & "\programme.msi" ShellOk = Shell(""" & MonPath & """, vbMinimizedNoFocus) DoEvents Do While ShellOk = 0 Loop

---

Mais cela ne fonctionne pas. "MonPath" donnant un bon chemin
Est qu'il faut bien utiliser Shell pour un .msi?
Si oui quelle est mon erreur ? (j'ai mis 3 guillemets pour gérer les espaces dans le chemin)

Merci d'avance

Et en mettant :

ShellOk = Shell(MonPath, vbMinimizedNoFocus)

Ca marcherait pas mieux ?

Je ne comprends pas non plus ta boucle, ShellOK va te renvoyer l'identificateur du programme que tu lances, il ne va pas repasser miraculeusement à 0 ensuite.

Et en mettant :

Code:

---

ShellOk = Shell(MonPath, vbMinimizedNoFocus)

---

J'ai l'erreur

Citation:

---

Invalid procedure call or argument

---

Quand à ma boucle, c'est pour "boucler" jusqu'à que le programme soit installé.

Bonjour,

apprenons à pêcher...

Si l'on ouvre la BDR et que l'on recherche ".msi", on découvre que ce type d'extension correspond aux fichiers Msi.package...
Bien.

Si l'on recommence l'opération sur ce dernier mot, on arrive à une clef qui nous montre comment ouvrir de tels fichiers ...
Elle nous dit ceci :

Citation:

---

"%SystemRoot%\System32\msiexec.exe" /i "%1" %*

---

Ce qui veut dire ceci :

1) soit on utilise Shell et il ne suffit pas de se référer au fichier à exécuter, mais également au chemin de l'appli qui en permet l'exécution

2) soit on utilise ShellExecute (Api de Windows) qui, elle, est fort capable de se débrouiller abec la seule extension .msi, sans lui indiquer quelle est l'application nécessaire...

Pour continuer avec cette philosophie de recherche, je te conseille de faire une toute petite recherche (y compris sur ce forum) en ce qui concerne l'utilisation de la Fonction ShellExecute de l'Api de Windows...;)

Edit (et avant cris éventuels) : ce n'est pas un "sarcasme", non ... c'est bien au contraire de la vraie générosité : celle de la mise du pied à l'étrier ...

Merci

En choisissant Shell et d'apres tes propos j'ai mis

Code:

---

1 2 3

test = "c:\windows\System32\msiexec.exe /I " & MaPath & " /passive" ShellOk = Shell(test, vbMinimizedNoFocus)

---

Cela ne plante plus, mais cela ne m'a pas installer le programme voulu (alors que si je lance le msi en double cliquant ce la fonctionne)
De plus j'onbtiens une fenetre Window Installer avec les options.

Est-ce que j'ai raté quelque chose ?

Citation:

---

Envoyé par sun19

Est-ce que j'ai raté quelque chose ?

---

Probablement l'option silencieuse si elle existe pour ce .msi. Qu'en dit l'aide ?

Fais tes essais depuis la ligne de commande (démarrer ===>> exécuter)

- sans te préoccuper pour l'instant de la fenêtre
- en essayant également sans le paramètre i

Ouais,

Je n'utilise et n'ai jamais utilisé cet installateur...

Un copain me dit de loin d'essayer ceci (depuis la ligne de commande, d'abord, pour voir si ça marche)

Windows\System32\msiexec.exe /i le_chemin_de_ce_que_tu_dois-installer /qb,1,TRUE

Une fois trouvée la bonne commande, c'est elle qu'il faudra passer à SHELL...

qu'elle est la valeur de MaPath ..?

si elle contient des espaces ... j'aurai bien mis des " autour...

Code:

---

test = "c:\windows\System32\msiexec.exe /I """ & MaPath & """ /passive

---

Effectivement en tapant la commande

Code:

---

msiexec.exe /i le_chemin_de_mon_msi /qb

---

dans démarrer --> executer, l'install ne se lance et j'obitiens la fenetre suivante (voir piece jointe)
Alors que si je cliclk sur le .msi, il se lance sans pb

Que me manque-t-il ?

Bon...

Je vais voir si j'ai la chance d'avoir à nouveau le copain... (dur dur compte tenu des évènements électoraux aux USA et de l'atmosphère du moment à Chicago ....)

Dans l'attente : il me semble que cette fenêtre est là pour t'aider à compléter ta syntaxe (paramètres à passer)....

Lis-la entièrement et fais des essais "combinés"...

A +, peut-être

Edit : T'as essayé avec /package ?

Deux liens à lire en attendant :

http://helpnet.macrovision.com/robo/...CmdLineMSI.htm

http://support.microsoft.com/kb/314881/fr

Ils concernent la syntaxe de la commande et les paramètres à passer selon le cas de figure.

Finalement en tapant dans demarrer--> executer

Code:

---

c:\windows\System32\msiexec.exe /i "le_chemin_de_mon_msi"

---

cela fonctionne (j'avais oublié les guillements pour le chemin, il continet des espaces)
Et donc dans mon code vb6, j'ai mis

Code:

---

1 2 3

test = "c:\windows\System32\msiexec.exe /I """ & MonPath & """ " ShellOk = Shell(test, vbMinimizedNoFocus)

---

Et c'est ok

Merci de votre aide

Puisque c'est ok, un petit clic sur :resolu:?