投稿日 | : 2003/06/17(Tue) 12:58 |
投稿者 | : 魔界の仮面弁士 |
Eメール | : |
URL | : |
タイトル | : Re^4: tcp/ip |
> 変更できない時にエラー表示したいのですがどうすれば表示されるのでしょうか
WshShellオブジェクト経由で、標準出力を読み出してみてください。
Dim Exec As Object
Dim StdOut As Object, StdErr As Object
Set Exec = CreateObject("WScript.Shell").Exec(S)
Set StdOut = Exec.StdOut
Set StdErr = Exec.StdErr
で、あとはこの StdOut/StdErr変数(これらは、TextStreamオブジェクトとなります)の
ReadメソッドとAtEndOfStreamプロパティ、ないしは ReadAllメソッドを使えば良いかと。