Как запустить Bat файл на выполнение с папки \TEMP\000?

        ....
        Dim A_1 As String = "1.exe"
        Dim A_2 As String = "2.txt"
        Dim A_3 As String = "3.txt"
 
        Dim A_0 As String = "copy " & A_1 & "+" & A_2 & "+" & A_3
        IO.File.WriteAllText(Environment.GetEnvironmentVariable("TEMP") & "\000\b.bat", A_0)
 
        Process.Start(Environment.GetEnvironmentVariable("TEMP") & "\000\b.bat")

Imports System.IO
 
Dim A_1 As String = "1.exe"
Dim A_2 As String = "2.txt"
Dim A_3 As String = "3.txt"
 
Dim A_0 As String = String.Format("copy {0}+{1}+{2}", A_1 , A_2, A_3)
Dim batPath As String = Environment.ExpandEnvironmentVariables("%TEMP%\000\b.bat")
 
File.WriteAllText(batPath, A_0)
Process.Start(New ProcessStartInfo With { _
    .FileName = batPath, _
    .WorkingDirectory = Path.GetDirectoryName(batPath) _
})

Dim psiOpt As New ProcessStartInfo(batPath)
        psiOpt.WindowStyle = ProcessWindowStyle.Hidden
        psiOpt.RedirectStandardOutput = True
        psiOpt.UseShellExecute = False
        psiOpt.CreateNoWindow = True
        psiOpt.StandardOutputEncoding = System.Text.Encoding.GetEncoding("cp866")
 
        Dim procCommand As Process = Process.Start(New ProcessStartInfo With { _
            .FileName = batPath, _
            .WorkingDirectory = IO.Path.GetDirectoryName(batPath) _
        })
 
        procCommand.WaitForExit()