0

コマンドウィンドウでプロセスを開始する必要があります。しかし、いくつかのエラーが原因で表示されているような場合、cmdウィンドウが点滅するだけで、何が起こるかわかりません。キーを押すなどするまでcmdウィンドウを開いたままにしておくのが最善です。 

Dim q As String = Chr(34)
Dim p As New Process
With p.StartInfo
      .FileName = q & whereis7z & "\7z.exe" & q
      .Arguments = " e " & q & tempArch & fNameStr & q & " -y"
      .WindowStyle = ProcessWindowStyle.Normal
      .CreateNoWindow = False
      .WorkingDirectory = tempArch
       Debug.Print(.FileName & .Arguments)
End With
p.Start()
If p.ExitCode <> 0 Then
       MsgBox(p.ExitCode, MsgBoxStyle.Critical)
End If

「ExitCode」では不十分なため、キーを押して「StartInfo」の何が問題なのかを確認するまで、cmdウィンドウを開いたままにする方法はありますか。

4

2 に答える 2

1

プログラムを直接実行するのではなく、cmd.com アプリケーションを実行する必要があります。

スタート メニューから「cmd /k dir」を実行すると、ディレクトリ リストが表示され、ウィンドウは開いたままになります。

アプリケーションをパラメーター (引数) で渡す必要があると思います

これがセルジュに役立つことを願っています

于 2012-12-04T23:34:47.953 に答える
1

または、ウィンドウの標準出力をリダイレクトして、プログラム出力をキャプチャすることもできます。

p.StartInfo.RedirectStandardOutput = True

次に、プログラムが出力したものを読み込んで、自分で表示できるようにします。

Dim Output as String = p.StandardOutput.ReadToEnd
于 2012-12-05T00:36:34.470 に答える