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

Question

VBからコマンドプロンプトを操作し、結果をLabelに貼り付けることを考えています。
しかし、コマンドプロンプトを起動するプロセスにリダイレクト設定をしたところ、実行するたびに終了してしまい、その後のコマンド入力でプロセスが見つからずエラーとなってしまいます。コマンドプロンプトは終了せずにリダイレクトの設定する方法を教えて頂けないでしょうか。

また、コマンドプロンプト自体は表示させずに実行できるのが理想なので、やり方のヒントだけでも頂けると助かります。

操作例(VBのボタンから)：cmd.exe起動　→　cd c:\ →　dir

エラー内容：プロセス 'c:\windows\system32\cmd.exe' が見つかりませんでした。

動作環境：VB2005、Windows XP

==============================
Public Class Form1

Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        Dim P1 As New System.Diagnostics.Process

P1.StartInfo.UseShellExecute = False
        P1.StartInfo.RedirectStandardOutput = True
        P1.StartInfo.FileName = "cmd.exe"

P1.Start()
    End Sub

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        AppActivate("c:\windows\system32\cmd.exe")
        SendKeys.SendWait("CD c:\{Enter}")
        Label5.Text = P1.StandardOutput.ReadToEnd()
    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")
        SendKeys.SendWait("DIR{Enter}")
        Label5.Text = P1.StandardOutput.ReadToEnd()
    End Sub

chibita_papa · Accepted Answer

>IO.StreamReader実行前にSystem.Threading.Thread.Sleep(300)を行えばLabelに表示することが出来ました！
>これはSendKeys.SendWaitの完了前にIO.StreamReaderが実行されていたということでしょうか？？？

そうみたいですね。
SendKeys.SendWait("DIR > " & ret & "{Enter}")　
Using sr As New IO.StreamReader(tmp, System.Text.Encoding.Default)
の間が余りにも早く空のファイルをオープンしてしまっていたのでしょう。
いっその事、ファイルオープン前に0.3秒待つと言う不確実なことをせず
Try
                If FileLen(tmp) > 0 Then
                    Using sr As New IO.StreamReader(tmp, System.Text.Encoding.Default)
                         Label1.Text = sr.ReadToEnd()  '←何も表示されない
                        Console.WriteLine(sr.ReadToEnd) '←何も表示されない
                    End Using
                    Exit While
                Else
                    System.Threading.Thread.Sleep(300)
                End If
ファイルサイズを確認して書き込みが始まっているか確認してオープンの方がすっきりするような気がします。
書き込み中で有ればオープンに失敗しますのでリトライします。

>あとはどうやってコマンドプロンプトのコンソールを表示させずに動作させるかです^^;;;
ん？
私はてっきり、コマンドプロンプトに表示したいが為にこのような事をしているのだと思っていました。
理由は分かりませんが。
コマンドプロンプトに表示したくないのであれば
        Dim sb As New System.Text.StringBuilder
        For Each s As String In IO.Directory.GetFiles("z:\")
            sb.AppendLine(s)
        Next
        Label1.Text = sb.ToString

これがVBの正当な書き方です。

chibita_papa · Answer

NO2です
回答した後にふと思いつきました。
        SendKeys.SendWait("DIR > " & ret & "{Enter}") '←tmpファイルは作成される
        SendKeys.SendWait("CLS{Enter}")
CSLで画面を消してしまえば
コマンドプロンプトのコンソールを表示させずに動作
が可能かと・・

chibita_papa · Answer

No2 です
>ご指示頂いたソースの流れとしては、cdやdirコマンドを実行するたびに結果をtmpファイルに出力し、
>それをコンソール上に出力するものだと思います。コンソールではなくLabelに出力できれば問題解決できそうなので引き続き解析してみます。

テストで試したものをアップしましたので
コンソールに出力しましたが
Labelに出力は質問者様のコードの通り
'Label5.Text = P1.StandardOutput.ReadToEnd()
Label5.Text = sr.ReadToEnd
と殆ど変りません。

chibita_papa · Answer

No.2です。

失礼しました。
Dim ret As String = ControlChars.Quote & My.Computer.FileSystem.GetTempFileName & ControlChars.Quote
でどうでしょうか。

Tempフォルダーのパスにスペースが含まれている環境の時は、
エラーになります。
ファイル名の前後に""を付けて回避します。

qwerjpo · Answer

ただコマンドの結果を取得したいだけなら、
コマンドとその引数をStartInfo.Argumentsの中にいれれば取得できますよ。

それと非表示はStartInfo.WindowStyle = ProcessWindowStyle.Hiddenで出来ます。

参考URL：http://dobon.net/vb/dotnet/process/standardoutput.html

chibita_papa · Answer

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

は、どうですか？
ファイルに書き出すのが気に入らないと思いますが。

edomin7777 · Answer

実験も検証もしていませんが…、
cmd.exeのオプションに「/k」があります。
「コマンドを実行するが、終了しない」
というものです。

一度試してみてはいかがでしょう？

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

NO2です

>IO.StreamReader実行前にSystem.Threading.Thread.Sleep(300)を行えばLabelに表示することが出来ました！

No2 です

この回答への補足

No.2です。

ただコマンドの結果を取得したいだけなら、

P1.StartInfo.UseShellExecute = False

実験も検証もしていませんが…、

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング