Shell command.com の 出力結果について (ID:119930)

名前

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

本文 Dim lpStartupInfo As STARTUPINFO With lpStartupInfo .cb = Len(lpStartupInfo) .dwFlags = STARTF_USESHOWWINDOW Or STARTF_USESTDHANDLES .wShowWindow = SW_HIDE .hStdInput = hInpRead .hStdOutput = hOutWrite .hStdError = hErrWrite End With If (CreateProcess(vbNullString, Environ$("COMSPEC"), ByVal 0&, ByVal 0&, _ 1&, 0&, ByVal 0&, App.Path, lpStartupInfo, lpProcInfo) = 0) Then MsgBox "えらー！" でできたよ。