Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

75818 / 76732

←次へ　｜　前へ→


	【5346】Re:Shell関数で実行した結果取得

Kein - 03/5/7(水) 15:15 -


	引用なし

	パスワード

WSH5.6から実装されている、WshShellオブジェクトのExecメソッドを使い
それが返すオブジェクトで、StdOutチャンネルにアクセスする。という方法が
あるようです。

Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Sub MyTest_Std()
　 Dim WShell As Object, oExec As Object
　 Dim Buf As String
　
　 Set WShell = CreateObject("WScript.Shell")
　 Set oExec = WShell.Exec("Command.com /C CD") 'NT系のOSなら cmd.exe
　 Do Until oExec.StdOut.AtEndOfStream
　　　Buf = Buf & oExec.StdOut.ReadLine
　　　If oExec.Status = 1 Then Exit Do
　　　Sleep 100
　 Loop
　 MsgBox Buf
　 Set oExec = Nothing: Set WShell = Nothing
End Sub

3 hits

▼

【5338】Shell関数で実行した結果取得 NECRO 03/5/7(水) 13:05