Question

    Private Sub Command1_Click()
    Dim sCommand as String
    Dim oWrite as System.IO.StreamWriter
    sCommand = "cmd C:\Windows\System32\java.exe -version2> C:\Users\Desktop\version.txt"
    oWrite = IO.File.CreateText(C:\Users\Desktop\version.txt

    End Sub

当我在命令提示符下运行命令时，它会执行它要执行的操作（写入txt文件。但是当实现到VB时，它将运行并刷新命令提示符，但它不会写入文件。

我错过了一些东西吗？

Answer 1

我显然正在让事情变得复杂...... 这最终完美无缺。

    Sub Main()
     Dim sdkCommand As String

    sdkCommand = "C:\Windows\System32\Java.exe -version 2> C:\Users\Desktop\JavaSDKInfo.txt && C:\Windows\System32\tasklist.exe /FI ""IMAGENAME eq java.exe"" >> C:\Users\Desktop\JavaSDKInfo.txt"
    Shell("cmd.exe /c" & sdkCommand)

End Sub

VB运行java.exe命令并将文本输出到txt文件

1 个答案: