[VB] Programm ausführen

[A+K]

Hey Leute,

brauche etwas Hilfe. Habe ein Programm das eine txt Datei ausliest und die dann in eine textbox im Programm überträgt.

Nun sollen aber diese Programme nacheinander ausgeführt werden wie mache ich das? Vielleicht ohne die Textbox?

Mein bisheriger Code:

 Spoiler

 Spoiler

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim FILE_NAME As String = "C:\Autostart.txt"

Dim TextLine As String

If System.IO.File.Exists(FILE_NAME) = True Then

Dim objReader As New System.IO.StreamReader(FILE_NAME)

Do While objReader.Peek() <> -1

TextLine = TextLine & objReader.ReadLine() & vbNewLine

Loop

TextBox1.Text = TextLine

Else

MsgBox("File Does Not Exist")

End If
End Sub

So wie starte ich nun die einzelnen Programme in der txt File / Textbox?


Danke für eure Hilfe

[Nanoxx™]

Also wenn ich das richtig verstanden habe steht in der Datei "C:\xyz.exe"

und du willst sie Starten?

PHP Code:

Shell(Textbox1.text) 


[A+K]

Originally Posted by Nanoxx™

Also wenn ich das richtig verstanden habe steht in der Datei "C:\xyz.exe"

und du willst sie Starten?

PHP Code:

Shell(Textbox1.text) 


Ja, aber nicht nur C:\xyz.exe

Sondern mehrere nacheinander an verschiedenen Pfaden...

Also:
C:\xyz.exe
C:\zyx.exe
C:\Program Files (x86)\Random\dg.exe
C:\Program Files\Microsoft Office\Office15\EXCEL.exe
usw

[Nanoxx™]

Lies es in eine Listbox ein dannn hast du ne bessere Übersicht

PHP Code:

For i = 1 To Listbox1.Items.Count
Listbox1.SelectedIndex = Listbox1.SelectedIndex +1
Shell(Listbox1.SelectedItem)
Next 


[A+K]

Okay, es funktioniert schonmal nur das Problem es wiederholt sich dauernd ^^ Vielleicht sollte man das 'File' nachdem es gestartet ist von der Liste löschen? Aber wie mach ich das?

[Nanoxx™]

PHP Code:

For i = 1 To Listbox1.Items.Count
Listbox1.SelectedIndex = Listbox1.SelectedIndex +1
Shell(Listbox1.SelectedItem)
ListBox1.Items.Remove(ListBox1.SelectedItem)
Next 


so müsste es funktionieren

[th0rex]

@Über mir man kann es sich auch schwer machen ...
Warum kein foreach ?

        For Each item In ListBox1.Items
            Shell(item)
        Next

[A+K]

Originally Posted by Nanoxx™

PHP Code:

For i = 1 To Listbox1.Items.Count
Listbox1.SelectedIndex = Listbox1.SelectedIndex +1
Shell(Listbox1.SelectedItem)
ListBox1.Items.Remove(ListBox1.SelectedItem)
Next 


so müsste es funktionieren

Danke dir

Originally Posted by omitma

@Über mir man kann es sich auch schwer machen ...
Warum kein foreach ?

        For Each item In ListBox1.Items
            Shell(item)
        Next

Es funktioniert mehr will ich garnicht wird kein Meisterwerk sondern nur ein kleiner Helfer für meinen Onkel ^^

[th0rex]

Aber du solltest doch wissen wie man es eigentlich macht. Ich meine die foreach Schleife ist nicht ohne Grund da und nur weil etwas funktioniert heißt es noch lange nicht, dass man es so machen sollte.

[Nanoxx™]

Originally Posted by omitma

Aber du solltest doch wissen wie man es eigentlich macht. Ich meine die foreach Schleife ist nicht ohne Grund da und nur weil etwas funktioniert heißt es noch lange nicht, dass man es so machen sollte.

Es gibt 20000000 wege das zu lösen...

Nicht jeder muss es gleich machen

[snow]

#closed (on request)