2
VB aktuelles Verzeichnis setzen
brauche eure Hilfe
Ich habe auf einem USB Stick diverse Programme. Zu diesen Programmen habe ich AutoIt Installationsscripte erstellt und als EXE gespeichert.
Ich möchte nun in dem root Verzeicnis des USB Sticks, mit Visual Basic ein Installationsmenu machen. In dem Menü werden die Programme als Buttons
Angezeigt. Wenn man auf den Button klickt, soll die jeweilige Exe aufgerufen werden. Problem: Bei jedem PC hat der Usb Stick eine andere Laufwerks angabe.
Wie muss ich das machen das er automatisch den richtigen Pfad zum Stick/exe findet. Mein script sieht bisher (nur 1 button zum testen) so aus:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Shell("l:\Programme\vlc.exe")
End Sub
End Class
das klappt auch bisher. aber nicht überall ist der STick eben l:\
Idealerweise wäre es noch besser ein Menu mit checkboxen zu haben, wo dann, wenn man auf weiter klickt die exe dateien nacheinander(!) aufgerufen werden, aber ich denke das wäre vorerst zu kompliziert, oder? Bin absoluter Neuling in Sachen VB
Ich habe auf einem USB Stick diverse Programme. Zu diesen Programmen habe ich AutoIt Installationsscripte erstellt und als EXE gespeichert.
Ich möchte nun in dem root Verzeicnis des USB Sticks, mit Visual Basic ein Installationsmenu machen. In dem Menü werden die Programme als Buttons
Angezeigt. Wenn man auf den Button klickt, soll die jeweilige Exe aufgerufen werden. Problem: Bei jedem PC hat der Usb Stick eine andere Laufwerks angabe.
Wie muss ich das machen das er automatisch den richtigen Pfad zum Stick/exe findet. Mein script sieht bisher (nur 1 button zum testen) so aus:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Shell("l:\Programme\vlc.exe")
End Sub
End Class
das klappt auch bisher. aber nicht überall ist der STick eben l:\
Idealerweise wäre es noch besser ein Menu mit checkboxen zu haben, wo dann, wenn man auf weiter klickt die exe dateien nacheinander(!) aufgerufen werden, aber ich denke das wäre vorerst zu kompliziert, oder? Bin absoluter Neuling in Sachen VB
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 138146
Url: https://administrator.de/contentid/138146
Ausgedruckt am: 14.11.2024 um 17:11 Uhr
2 Kommentare
Neuester Kommentar
warum lässt Du den Laufwerksbuchstaben nicht einfach weg?
solange Du im gleichen Verz. startest sollte das kein Problem sein...
Gruß,
Michael
solange Du im gleichen Verz. startest sollte das kein Problem sein...
Gruß,
Michael
Stimme zu. Beispiele
Shell ( "test.exe" )
Shell ( "..\andererOrdner\test.exe" )
Ansonten gibts in der Microsoft MSDN Infos zu VBS.
Korrektur: ich dachte, du verwendest VBS. Eigentlich hast du VB.NET im Einsatz.
Beispiel:
Public Function Shell(ByVal Target$) As Boolean
Dim objProcessStart As New System.Diagnostics.ProcessStartInfo()
Try
objProcessStart.UseShellExecute = True
objProcessStart.FileName = Target
Process.Start(objProcessStart)
Catch ex As Exception
Exit Function
End Try
Return True
End Function
Weiters gibts noch
Application.StartupPath ()
Shell ( "test.exe" )
Shell ( "..\andererOrdner\test.exe" )
Ansonten gibts in der Microsoft MSDN Infos zu VBS.
Korrektur: ich dachte, du verwendest VBS. Eigentlich hast du VB.NET im Einsatz.
Beispiel:
Public Function Shell(ByVal Target$) As Boolean
Dim objProcessStart As New System.Diagnostics.ProcessStartInfo()
Try
objProcessStart.UseShellExecute = True
objProcessStart.FileName = Target
Process.Start(objProcessStart)
Catch ex As Exception
Exit Function
End Try
Return True
End Function
Weiters gibts noch
Application.StartupPath ()
