在选定的路径中运行脚本

Question

我目前有这段代码：

   Sub Button1Click(sender As Object, e As EventArgs)



            If dlgFolder.ShowDialog = Windows.Forms.DialogResult.OK Then

                txtPath.Text = dlgFolder.SelectedPath


                Try

                    Dim CopyFile As String = Path.Combine(Directory.GetCurrentDirectory, "pdftk.exe")
                    Dim CopyLocation As String = Path.Combine(dlgFolder.SelectedPath, "pdftk.exe")
                    Dim pyScript As String = Path.Combine(Directory.GetCurrentDirectory, "pdfmerge.py")
                    Dim pyLocation As String = Path.Combine(dlgFolder.SelectedPath, "pdfmerge.py")

                    System.IO.File.Copy(CopyFile, CopyLocation, True)
                    System.IO.File.Copy(pyScript, pyLocation, True)

                Catch copyError As IOException
                Console.WriteLine(copyError.Message)
                End Try         
            End If
End Sub

这会将当前工作目录（这将是默认安装文件夹）中的两个文件复制到 Fodler 对话框浏览器中选定的路径。这工作正常。

现在我想做的是将“pdfmerge.py”运行到选定的文件夹路径中。我尝试了下面的代码，但脚本仍在当前工作目录中运行。

Sub BtnNowClick(sender As Object, e As EventArgs)

        Dim myProcess As Process
        Dim processFile As String = Path.Combine(dlgFolder.SelectedPath, "pdfmerge.py")

        myProcess.Start(processFile, dlgFolder.SelectedPath)



    End Sub

Answer 1

您可以设置进程的工作目录。

Dim p As New ProcessStartInfo
p.FileName = Path.Combine(dlgFolder.SelectedPath, "pdfmerge.py")
p.WorkingDirectory = dlgFolder.SelectedPath
Process.Start(p)

一个问题：您确保 dlgFolder.SelectedPath 正确吗？在不知道程序内部工作原理的情况下，似乎可以在 Button1 之前按 BtnNow，这意味着 dlgFolder.SelectedPath 不会被设置用户。

Answer 2

尝试使用带有 5 个参数的 Process.Start() 重载。

Start ( _
fileName As String, _
arguments As String, _
userName As String, _
password As SecureString, _
domain As String _
)

您可以为 userName 和 password 传入 null，但如果您的目录不在您有权访问的标准目录范围内，您可能需要输入您的用户名和密码。我认为 domain 将是工作目录。