Visual Basic exen öffnen

[Varken~]

Originally Posted by Algaten™

Um den OrdnerPfad herauszufinden: Environment.CurrentDirectory
Zum Starten der datei : Process.Start ("Hier der pfad")

Die kann man wunderBar kombienieren

Leichte TestProjekt datei im Anhang!

Lg Algaten™

Richtig.

Entweder den aktuellen Pfad / Ordner ermitteln oder mittels OpenFileDialog manuell öffnen lassen.

Originally Posted by TerrorTom

Der code geht ja net...

Ja, weil er auch noch nicht komplett ist.

Originally Posted by Drewfire

Process.Start ist ja auch glaub nur für Links.
Shell wäre da ne Lösung.

 Spoiler

Funktioniert sowohl für Links, als auch in dem Fall für die .exe.


@Threadersteller: Es gibt diverse Varianten, die du einsetzen kannst. Es kommt nur drauf an, wie du das eben gestalten willst. Eventuell, wenn du selbst überhaupt nicht zurecht kommst, helfe ich dir per TeamViewer oder Ähnliches.

[WhiteCollar]

Okay danke...


Hm... ehmm ich habe den richtigen pfad eingegeben und den namen der exe auch richtig geschrieben aba wenn ich debugge kommt : Das System kann die angegebene Datei nicht finden
???

[anonymous-f4h279]

Hast du das "/" auch so "\" gemacht?

[WhiteCollar]

ja habe den Pfad kopiert
^^

[Al Kappaccino]

Originally Posted by TerrorTom

ja habe den Pfad kopiert
^^

Poste mal den Code, den du reingeschrieben hast...ich bezweifle dass du es peilst <.<

[WhiteCollar]

ich bezweifle dass du es peilst <.<

sry ich bin da anfänger...
Hier der code

 Spoiler

Public Class Starter
    Dim exespeicherort As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        exespeicherort = Environment.CurrentDirectory
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Process.Start(Environment.CurrentDirectory + "D:\Spiele\P-Server\TheLegendmt3" + "TheLegendMt3.exe")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Process.Start(Environment.CurrentDirectory + (TextBox1.Text) + "config.exe")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub
End Class

und so soll es dann aussehenAnhang)

[Al Kappaccino]

Process.Start(Environment.CurrentDirectory + "D:\Spiele\P-Server\TheLegendmt3" + "TheLegendMt3.exe")

Ach du scheise

Du musst nichtmal ein Pro im coden sein, um das zu blicken... Das ist reine Logik!
Du sagst, du willst den Pfad je nach User Anpassen, wie kommst du dann auf die Idee erst den Pfad der Anwendung auszulesen, dann deinen Pfad rein zu schreiben und dann die .exe(Falsche hingeschrieben). Außerdem musst du ein "&" hinschreiben.
Und sag nicht du verstehst es nicht...Visual Basic hat ein sehr ausgereiftes IntelliSense, du musst dir nur einmal die Syntax durchlesen. Wobei sich "Environment.CurrentDirectory" srsly von alleine erklärt "CurrentDirectory=DerzeitigesVerzeichnis"

[WhiteCollar]

oh aj ahbe das danach noch geändert das war falsche code...

Public Class Starter
Dim exespeicherort As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
exespeicherort = Environment.CurrentDirectory
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Process.Start(Environment.CurrentDirectory + (TextBox1.Text) + "TheLegendMt3.exe")
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Process.Start(Environment.CurrentDirectory + (TextBox1.Text) + "config.exe")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub
End Class

So kannste mal aufhören auf mir herumzuhacken und einfach mal Helfen? oder mir einfach mal sagen wo der fehler ist z.b einfach sagen wie der code richtig ist???..

[Konata-Chan]

Process.Start(Environment.CurrentDirectory + (TextBox1.Text) + "config.exe")

das checke ich nicht...
da kann man ja in die Textbox sonstwas hinschreiben....
also ich weiss nicht genau ob das dann das problem is.........



Process.Start(Environment.CurrentDirectory + (TextBox1.Text) + "\config.exe")


versuchs mal

edit: versuch mal Pfad per Klick find funktion (kp wie das heißt)
also wie im Install Pfad auswahl ungefähr

[anonymous-f4h279]

Wofür die Textbox?
Kann dir das in ca 2 Stunden mit AutoIt schnell machen.

[Konata-Chan]

hier hab nochmal gesucht


bau das hier ein zum Pfad auswählen

Dim myStream As StreamDim openFileDialog1 As New OpenFileDialog()
       openFileDialog1.InitialDirectory = "c:\"
openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
openFileDialog1.FilterIndex = 2
openFileDialog1.RestoreDirectory = True
       If openFileDialog1.ShowDialog() = DialogResult.OK Then  
 myStream = openFileDialog1.OpenFile() 
  If Not (myStream Is Nothing) Then      ' Insert code to read the stream here.       
myStream.Close()  
End If
End If

und ändere das...
is nur abkopiert

[WhiteCollar]

Ehmm wenn ich das mit einer Textbox nehmen würde...
würde das dann ca so sein?

Dim myStream As StreamDim openFileDialog1 As New OpenFileDialog()
       openFileDialog1.InitialDirectory = [COLOR="Red"](Textbox1.text)[/COLOR]
openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
openFileDialog1.FilterIndex = 2
openFileDialog1.RestoreDirectory = True
       If openFileDialog1.ShowDialog() = DialogResult.OK Then  
 myStream = openFileDialog1.OpenFile() 
  If Not (myStream Is Nothing) Then      ' Insert code to read the stream here.       
myStream.Close()  
End If
End If

[Konata-Chan]

Originally Posted by TerrorTom

Ehmm wenn ich das mit einer Textbox nehmen würde...
würde das dann ca so sein?

Dim myStream As StreamDim openFileDialog1 As New OpenFileDialog()
       openFileDialog1.InitialDirectory = [COLOR="Red"](Textbox1.text)[/COLOR]
openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
openFileDialog1.FilterIndex = 2
openFileDialog1.RestoreDirectory = True
       If openFileDialog1.ShowDialog() = DialogResult.OK Then  
 myStream = openFileDialog1.OpenFile() 
  If Not (myStream Is Nothing) Then      ' Insert code to read the stream here.       
myStream.Close()  
End If
End If

lies dir einfach das durch

[anonymous-f4h279]

Originally Posted by TerrorTom

Ehmm wenn ich das mit einer Textbox nehmen würde...
würde das dann ca so sein

Wenn du willst mach ich dir das gleich mit AutoIt.
Meld dich einfach per pm.

[WhiteCollar]

Ehmm ja das probkem ist ich wil auch das das cool aussieht also geht das mit autoit überhaupt? design usw?