Несколько команд для одного и того же текстового файла из VB - PullRequest
Новая
       11

Несколько команд для одного и того же текстового файла из VB

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

У меня есть это, который экспортирует информацию SDK в текстовый файл. Я также хотел бы экспортировать процессы, запущенные в тот же текстовый файл. 

Dim sdkCommand As String
    sdkCommand = "C:\Windows\System32\Java.exe -version 2> C:\Users\JavaSDKInfo.txt"
    Shell("cmd.exe /c" & sdkCommand)
End Sub

Если я попытаюсь добавить это к нему, я по-прежнему смогу видеть только вывод sdkCommand, но ничего о выполняющихся задачах. Я предполагаю, что мне нужно объединить операторы оболочки? 

  Sub Main()
    Dim sdkCommand As String
    Dim proCommand As String
    sdkCommand = "C:\Windows\System32\Java.exe -version 2> C:\Users\Desktop\JavaSDKInfo.txt"
    proCommand = "C:\Windows\System32\tasklist.exe > C:\Users\Desktop\JavaSDKInfo.txt"
    Shell("cmd.exe /c" & sdkCommand)
    Shell("cmd.exe /c" & proCommand)
End Sub

1 Ответ

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

Объединение всех команд в одну длинную команду с использованием && фактически облегчило эту работу. Это позволило мне добавить еще несколько команд командной строки. 

Sub Main()
Dim sdkcommand as String
'COmbine using && in command prompt
sdkCommand = "java.exe >>C:\text.txt && tasklist.exe >>C:\text.txt"
Shell("cmd.exe /c" and sdkCommand)

End Sub

...