Откройте «.exe» с помощью кнопки, используя путь к файлу из TextBox.

Question

.

У меня есть TextBox с именем TextBox1, который заполняется кнопкой, которая получает путь к файлу с помощью OpenFileDialog. Я хочу, чтобы кнопка (Button3) запускала несколько процессов один за другим с интервалом в 2 часа, затем закрывала ее и открывала следующую.

Всего у меня есть 4 разных текстовых поля (TextBox1, TextBox2, TextBox3 и TextBox4) и 4 разных пути к файлам, которые я хочу открыть с помощью той же кнопки с указанным выше интервалом.

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

Чтобы запустить новое применение процесса:

dim myProcess = Process.start(filename) 

Вы «не нужен код, который делает следующее:

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

Это открывает файл с расширением .exe, как будто он пытается чтобы прочитать данные из него.

Вместо просто использовать

dim process = Process.Start(OpenFileDialogX.Filename) 

Примечание: ваш начальный каталог, кажется, с: температура не C: \ Temp, как это, вероятно, должно быть