DOSコマンドを実行（xcopy） (ID:143262)

名前

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

本文 psi.Arguments = "/c xcopy C:\tmp d:\tmp /d /e /r /k /y /c" のxcopy C:\tmp d:\tmp /d /e /r /k /y /cが実行出来ません。 DOSプロンプトで手入れすると動作します。 また、他のコマンド psi.Arguments = "/c copy C:\tmp\*.* d:\tmp" 等とすると、以下のプログラムで動作します。 何がおかしいでしょうか？ Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Call Shell(Environ$("ComSpec") & "xcopy C:\tmp d:\tmp /d /e /r /k /y /c") Dim results As String Dim psi As New System.Diagnostics.ProcessStartInfo() 'ComSpecのパスを取得する psi.FileName = System.Environment.GetEnvironmentVariable("ComSpec") '出力を読み取れるようにする psi.RedirectStandardInput = False psi.RedirectStandardOutput = True psi.UseShellExecute = False 'ウィンドウを表示しないようにする psi.CreateNoWindow = True 'コマンドラインを指定（"/c"は実行後閉じるために必要） psi.Arguments = "/c xcopy C:\tmp d:\tmp /d /e /r /k /y /c" '起動 Dim p As System.Diagnostics.Process = System.Diagnostics.Process.Start(psi) '出力を読み取る results = p.StandardOutput.ReadToEnd '出力された結果を表示 MsgBox(results) 'Console.WriteLine(results) 'WaitForExitはReadToEndの後である必要がある '(親プロセス、子プロセスでブロック防止のため) p.WaitForExit() End Sub End Class