vbからDOSコマンドを実行し、結果を取得するには？ (ID:87219)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >の15番のところにVB5のサンプルがあります。 マルチスレッドですか。(^^; Dos画面がチラッと見えてもいいのなら Dim ws As Object Dim we As Object dosCommand = "dir c:\" 'コマンド Set ws = CreateObject("WScript.Shell") Set we = ws.Exec("%ComSpec% /c " & dosCommand) Do DoEvents Loop While (we.Status) If Not we.StdErr.AtEndOfStream Then Text1.Text = "エラー" & vbCrLf & we.StdErr.ReadAll ElseIf Not we.StdOut.AtEndOfStream Then Text1.Text = we.StdOut.ReadAll End If Set we = Nothing 'オブジェクトの開放 Set ws = Nothing こんなことで。