Private Sub Command1_Click()
Dim sCommand as String
Dim oWrite as System.IO.StreamWriter
sCommand = "cmd C:WindowsSystem32java.exe -version2> C:UsersDesktopversion.txt"
oWrite = IO.File.CreateText(C:UsersDesktopversion.txt
End Sub
当我在命令提示符下运行命令时,它会执行它应该做的事情(写入 txt 文件。但是当在 VB 中实现时,它将运行并刷新命令提示符,但它不会写入文件。
我错过了一行东西吗?
我显然在让事情变得复杂......这最终工作得很好。
Sub Main()
Dim sdkCommand As String
sdkCommand = "C:WindowsSystem32Java.exe -version 2> C:UsersDesktopJavaSDKInfo.txt && C:WindowsSystem32tasklist.exe /FI ""IMAGENAME eq java.exe"" >> C:UsersDesktopJavaSDKInfo.txt"
Shell("cmd.exe /c" & sdkCommand)
End Sub