创建和运行批处理文件问题的VB.NET

Question

下面是我正在运行的代码，目前存在问题。

Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
    Dim path As String
    Dim sb As New System.Text.StringBuilder
    Dim sb1 As New System.Text.StringBuilder
    Dim Project As String = txtProject.Text
    Dim Building As String = txtBuilding.Text

    'Get the building and project number from some form of user input. They're predefined here:
    Building = "A1"
    Project = "10"

    If (folderDlg.ShowDialog() = DialogResult.OK) Then
        path = folderDlg.SelectedPath
        Dim root As Environment.SpecialFolder = folderDlg.RootFolder
    Else
        Return
    End If

    Me.Visible = False

    sb.AppendLine("")
    sb.AppendLine("_.``")
    sb.AppendLine(Building)
    sb.AppendLine(Project)
    sb.AppendLine("ZOOM")
    sb.AppendLine("e")
    sb.AppendLine("_.qsave")
    sb.AppendLine("_.quit")

    IO.File.WriteAllText(path & "\TB Edit.scr", sb.ToString())

    sb1.AppendLine("FOR %%D IN (*.DWG) DO " & Chr(34) & "C:\Program Files\Autodesk\Acade 2013\acad.exe" & Chr(34) & " %%D /B " & Chr(34) & path & "\TB Edit.scr" & Chr(34))
    sb1.AppendLine("Pause")
    sb1.AppendLine("END")

    IO.File.WriteAllText(path & "\TB Edit.bat", sb1.ToString())

    Process.Start(path & "\TB Edit.bat")

    My.Computer.FileSystem.DeleteFile(path & "\TB Edit.bat")
    My.Computer.FileSystem.DeleteFile(path & "\TB Edit.scr")

当批处理文件运行时，这就是我得到的.“暂停一下，看看发生了什么-

C:\Users\Owner\Dropbox\CADMASTER TECH  - SOUTH VALLEY\THOMAS\VB Programs\Title B
lock Edit\Title Block Edit\bin\Release>FOR %D IN (*.DWG) DO "C:\Program Files\Au
todesk\Acade 2013\acad.exe" %D /B "C:\Users\Owner\Desktop\TB Edit.scr"

C:\Users\Owner\Dropbox\CADMASTER TECH  - SOUTH VALLEY\THOMAS\VB Programs\Title B
lock Edit\Title Block Edit\bin\Release>Pause
Press any key to continue . . .

但是当我不删除程序结束时的批处理文件，然后转到它的位置并运行它，它就会运行得很好，就像它应该做的那样！

已经搞了两天了.有什么想法吗？

Answer 1

去它的位置

这是你的线索！好好看一看你发布的输出。