Ouvrir un ".exe" avec un bouton en utilisant un chemin de fichier à partir d'un TextBox

Question

J'ai un TextBox appelé TextBox1, qui est rempli par un bouton qui obtient un chemin de fichier en utilisant OpenFileDialog. Je veux un bouton (Button3) pour commencer plusieurs processus l'un après l'autre avec un intervalle de 2 heures puis le fermer et ouvrir le suivant.

Au total, j'ai 4 différents TextBoxes (TextBox1, TextBox2, TextBox3 et TextBox4) et 4 chemins de fichiers différents que je veux ouvrir avec le même bouton avec l'intervalle que j'ai mentionné précédemment.

Public Class Form1 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     OpenFileDialog1.Title = "Please Select a File" 
     OpenFileDialog1.InitialDirectory = "C:temp" 
     OpenFileDialog1.ShowDialog() 
    End Sub 

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk 
     Dim strm As System.IO.Stream 
     strm = OpenFileDialog1.OpenFile() 
     TextBox1.Text = OpenFileDialog1.FileName.ToString() 
     If Not (strm Is Nothing) Then 

      'insert code to read the file data 

      strm.Close() 
     End If 
    End Sub 

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 
     OpenFileDialog2.Title = "Please Select a File" 
     OpenFileDialog2.InitialDirectory = "C:temp" 
     OpenFileDialog2.ShowDialog() 
    End Sub 

    Private Sub OpenFileDialog2_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog2.FileOk 
     Dim strm As System.IO.Stream 
     strm = OpenFileDialog2.OpenFile() 
     TextBox3.Text = OpenFileDialog2.FileName.ToString() 
     If Not (strm Is Nothing) Then 

      'insert code to read the file data 

      strm.Close() 
     End If 
    End Sub 

    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged 
    End Sub 

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 
    End Sub 
End Class 

Answer 1

Pour lancer une nouvelle utilisation de processus:

dim myProcess = Process.start(filename) 

Vous ne » besoin du code qui effectue les opérations suivantes:

Dim strm As System.IO.Stream 
    strm = OpenFileDialog2.OpenFile() 
    If Not (strm Is Nothing) Then 
     strm.Close() 
    End If 

C'est l'ouverture du fichier exe comme si elle essayait pour lire les données de celui-ci.

Au lieu de cela il suffit d'utiliser

dim process = Process.Start(OpenFileDialogX.Filename) 

Remarque: votre répertoire initial semble être c: temp c pas: \ temp car il devrait probablement être