コマンドプロンプトを終了せずにリダイレクトする方法とは？

質問

• VBからコマンドプロンプトを操作し、結果をLabelに貼り付ける方法について教えてください。
• コマンドプロンプトを起動するプロセスにリダイレクト設定をしたところ、実行するたびに終了してしまいます。
• コマンドプロンプトを終了せずにリダイレクトの設定する方法を教えてください。また、コマンドプロンプト自体は表示させずに実行したいです。

回答No.2

chibita_papa

P1.StartInfo.UseShellExecute = False
P1.StartInfo.RedirectStandardOutput = True
で、マンドプロンプトは終了してしまいます。

仕方がないので、
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

Dim ret As String = My.Computer.FileSystem.GetTempFileName

AppActivate("c:\windows\system32\cmd.exe")
SendKeys.SendWait("CD c:\ >" & ret & "{Enter}")

While True
Try
Using sr As New IO.StreamReader(ret, System.Text.Encoding.Default)
Console.WriteLine(sr.ReadToEnd)
End Using
Exit While
Catch ex As Exception
System.Threading.Thread.Sleep(300)
End Try
End While
IO.File.Delete(ret)

End Sub

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
AppActivate("c:\windows\system32\cmd.exe")

Dim ret As String = My.Computer.FileSystem.GetTempFileName
SendKeys.SendWait("DIR >" & ret & "{Enter}")
While True
Try
Using sr As New IO.StreamReader(ret, System.Text.Encoding.Default)
Console.WriteLine(sr.ReadToEnd)
End Using
Exit While
Catch ex As Exception
System.Threading.Thread.Sleep(300)
End Try
End While
IO.File.Delete(ret)
End Sub

は、どうですか？
ファイルに書き出すのが気に入らないと思いますが。

お礼

回答ありがとうございます。
リダイレクトなしでcmd.exeを実行した後、上記のメソッドを実行してみたところ以下のようなエラーが発生しました。

c:\test>DIR > C:\Documents and Settings\a-shishido\Local Settings\Temp\tmp4E4.tmp
指定されたパスが見つかりません。

c:\test>CD c:\ > C:\Documents and Settings\a-shishido\Local Settings\Temp\tmp4E5.tmp
指定されたパスが見つかりません。

VBに不慣れで原因解析に時間がかかってしまっているため先にご報告させて頂きました。

ご指示頂いたソースの流れとしては、cdやdirコマンドを実行するたびに結果をtmpファイルに出力し、
それをコンソール上に出力するものだと思います。コンソールではなくLabelに出力できれば問題解決できそうなので引き続き解析してみます。