horsemanno1
Goto Top

Problem... Externe .MSI aus VB.net heraus starten

Hallo zusammen,

ich habe folgendes Problem, bei dem ich um Eure Hilfe bitte...

Ich habe in VisualStudio 2008 (genauer gesagt VisualBasic 2008) eine Art Menü geschrieben, welches auf einen USB-Stick gepackt werden soll. Damit sollen verschiedene Installationsdateien mit Click auf einen CommandButton gestartet werden.

Dummerweise habe ich allerdings Probleme mit dem Ansteuern einer Microsoft Installer Datei (.msi). Was bei einer .exe klappt, funktioniert dort nicht. (Er sagt, er findet die Datei nicht...)
Was aber nicht sein kann. Sie ist genau im selben Verzeichnis, wie die .exe, bei der es problemlos funktioniert...

Hier die zwei Code-schnipsel:

1. Der funktionierende mit der .exe

Private Sub cmdInstProgA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdInstProgA.Click
Dim sAppPath As String
sAppPath = Application.StartupPath
ChDir(sAppPath & "\Setup")
Call Shell("ProgrammA.exe", 1)
End Sub


2. Der nicht funktionierende mit der .msi

Private Sub cmdInstProgB_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdInstProgB.Click
Dim sAppPath2 As String
sAppPath2 = Application.StartupPath
ChDir(sAppPath2 & "\Setup")
Call Shell("ProgrammB.msi", 1)
End Sub


Habe in etlichen Foren schon gesucht... (Daher stammen auch die Codeschnipsel, da ich nicht wirklich versiert bin... Habe diese lediglich an meine Bedürfnisse angepasst)

Vielen Dank im Voraus für Eure Hilfe.

Gruß

Horseman

Content-ID: 109365

Url: https://administrator.de/contentid/109365

Ausgedruckt am: 25.11.2024 um 00:11 Uhr

Natureshadow
Natureshadow 18.02.2009 um 16:19:39 Uhr
Goto Top
Hallo,

den Windows-Installer (MSI) satrtest du auf der Kommandozeile mit dem Befehl

msiexec /i datei.msi

Das kannst du so in deinem

Call Shell("...", 1)  

unterbringen.

Grüße,
Nik
HorsemanNo1
HorsemanNo1 18.02.2009 um 16:51:40 Uhr
Goto Top
Super,

VIELEN VIELEN DANK...

Direkt ausprobiert und es funktioniert hervorragend. Genauso hab ich es mir gewünscht.

Gruß

Horse