VB для запуска команды для java.exe и вывода текста в текстовый файл - PullRequest
0 голосов
/ 12 мая 2011
    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

Когда я запускаю команду в командной строке, она делает то, что она должна делать (запись в текстовый файл. Но при внедрении в VB она запускается и мигает в командной строке, но не записывает в файл.

Я что-то пропустил?

1 Ответ

0 голосов
/ 13 мая 2011

Я явно все усложнял ... В итоге все получилось отлично.

    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
...