Bat Datei in grafische Oberfläche bringen bzw. Visual Studio

Public Class Form1

    Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) Handles Label1.Click

    End Sub

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

    End Sub
End Class

Public Class Form1

    Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) Handles Label1.Click

    End Sub

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

        My.Computer.FileSystem.CopyDirectory(TextBox1.Text, TextBox2.Text, True)
        My.Computer.FileSystem.CopyDirectory(TextBox2.Text, TextBox3.Text, True)
        MessageBox.Show(text:="Synchronisation gestartet.")  

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click


        MessageBox.Show(text:="Synchronisation beendet.")  
    End Sub
End Class

Public Class Form1

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

        System.Diagnostics.Process.Start("robocopy.exe", """" & TextBox1.Text & """ """ & TextBox2.Text & """ *.txt /MIR")  
        System.Diagnostics.Process.Start("robocopy.exe", """" & TextBox2.Text & """ """ & TextBox3.Text & """ *.txt /MIR")  

    End Sub
End Class

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        System.Diagnostics.Process.Start("robocopy.exe", """" & TextBox1.Text & """ """ & TextBox2.Text & """ *.txt /MIR")  
        System.Diagnostics.Process.Start("robocopy.exe", """" & TextBox2.Text & """ """ & TextBox3.Text & """ *.txt /MIR")  
        MessageBox.Show(text:="Synchronisation gestartet.")  

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Line1:
        System.Diagnostics.Process.Start("robocopy.exe", """" & TextBox1.Text & """ """ & TextBox2.Text & """ *.txt /MIR")  
        System.Diagnostics.Process.Start("robocopy.exe", """" & TextBox2.Text & """ """ & TextBox3.Text & """ *.txt /MIR")  

        System.Threading.Thread.Sleep(3000)

        GoTo Line1

    End Sub
End Class

Public Class Form1
    ' Eigenen Thread erstellen, welcher HINTER dem Start und Stop Button liegt.  
    ' Damit blockiert der Prozess die Button nicht.  
    Dim thread As Threading.Thread
    Dim i As Integer = 1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        thread = New Threading.Thread(AddressOf Synchronistaion)
        thread.Start()
        ' Start Synchronisation.  
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        thread.Abort()
        ' optional wenn "thread.Abort()" nicht funktioniert, kann man den Prozess abschießen:  
        'For Each Process In System.Diagnostics.Process.GetProcessesByName("Synchronisation")  
        'Process.Kill()  
        'Next  
    End Sub

    Private Sub Synchronistaion()
        ' Programm Synchronisation.  
        ' wird nach 5 Sekunden wiederholt  
        Do
            System.Diagnostics.Process.Start("robocopy.exe", """" & TextBox1.Text & """ """ & TextBox2.Text & """ *.txt /MIR").WaitForExit()  
            System.Diagnostics.Process.Start("robocopy.exe", """" & TextBox2.Text & """ """ & TextBox3.Text & """ *.txt /MIR").WaitForExit()  

            System.Threading.Thread.Sleep(5000)
            'Schleife = Loop  
        Loop
    End Sub
End Class

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
        ' Timmer Start  
    End Sub

   Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        SyncA()
        SyncB()
        ' Wenn Timer los dann starte Private Sub SyncA() und SyncB  
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
        ' Timer Stop  
    End Sub

    Private Sub SyncA()
        Log1("...")  
        Dim vglA = System.IO.Directory.GetFiles(TextBox1.Text)
        ' vglA = Abgleich Dateiname in Textbox1  
        For Each dt In vglA
            Dim dtname = dt.Substring(TextBox1.Text.Length)
            ' dtname = Dateipfad - Pfadangabe, es bleibt Dateiname *.txt  
            If Not System.IO.File.Exists(TextBox2.Text & dtname) Then
                System.IO.File.Copy(dt, TextBox2.Text & dtname)
                Log1(dtname)
                ' Wenn nicht vorhanden dann kopierte  
            End If
            ' Sonst mach nichts  
        Next

    End Sub

    Private Sub SyncA()
        Dim Vergleich1 = System.IO.Directory.GetFiles(TextBox1.Text)
        Dim Vergleich2 = System.IO.Directory.GetFiles(TextBox2.Text)

        For Each Datei1 In Vergleich1
            Dim dtname = Datei1.Substring(TextBox1.Text.Length)
            If Not System.IO.File.Exists(TextBox2.Text & dtname) Then
                System.IO.File.Copy(Datei1, TextBox2.Text & dtname)
            End If
        Next
        For Each Datei2 In Vergleich2
            Dim dtname = Datei2.Substring(TextBox2.Text.Length)
            If Not System.IO.File.Exists(TextBox1.Text & dtname) Then
                System.IO.File.Delete(Datei2)
            End If
        Next
    End Sub

    Private Sub SyncB()
        Dim Vergleich2 = System.IO.Directory.GetFiles(TextBox2.Text)
        Dim Vergleich3 = System.IO.Directory.GetFiles(TextBox3.Text)

        For Each Datei2 In Vergleich2
            Dim dtname = Datei2.Substring(TextBox2.Text.Length)
            If Not System.IO.File.Exists(TextBox3.Text & dtname) Then
                System.IO.File.Copy(Datei2, TextBox3.Text & dtname)
            End If
        Next
        For Each Datei3 In Vergleich3
            Dim dtname = Datei3.Substring(TextBox3.Text.Length)
            If Not System.IO.File.Exists(TextBox2.Text & dtname) Then
                System.IO.File.Delete(Datei3)
            End If
        Next
    End Sub