是否可以使VB程序与命令提示符交互？

Question

我正在学习Java，但感到很烦，您必须使用命令提示符来编译和运行程序...所以我在想：是否有一种方法可以在Visual Basic中制作一个可以打开命令提示符的程序并输入代码？

Answer 1

You can use the Process class.

Using p As New Process

    p.StartInfo.FileName = Path.Combine(Environment.SystemDirectory, "CMD.exe")
    p.StartInfo.Arguments = String.Format("/C ""{0}"" ", "Dir /B /S /A-D ""*""")
    p.StartInfo.WorkingDirectory = Environment.SystemDirectory

    p.Start()
    p.WaitForExit()

End Using

But there is no need to call the CMD, just call the Java compiler directlly, in the same way as the example above. Or also you can consider to develop your program directlly in Java , and use the Java compiler's interface related.

Answer 2

Use this code to run the batch of commands you need to run in command prompt.

Dim commands As Object() = New Object() {"echo Command One", "echo Command Two", "..."}
Dim startInfo As ProcessStartInfo = New ProcessStartInfo(Path.Combine(Environment.SystemDirectory, "cmd.exe"))
startInfo.WindowStyle = ProcessWindowStyle.Normal
startInfo.Arguments = "/c """
For Each obj As Object In commands
    startInfo.Arguments += obj.ToString + " & "
Next
startInfo.Arguments = startInfo.Arguments.Substring(0, startInfo.Arguments.LastIndexOf(" & "))
startInfo.Arguments += """"
Process.Start(startInfo)

---

Or just use this code to run the commands more concisely in the command prompt.

Shell("cmd /c ""echo Command One & Command Two & ...""")

Answer 3

In short, yes. You can just shell a command prompt.

Sub Foo()

    Dim cmd_Command As String = "DIR %USERPROFILE%/Desktop/*.* > %USERPROFILE%/Files.log"

    CreateObject("WScript.Shell").Exec("CMD /C " & cmd_Command)

End Sub