VB.NETでのDOSコマンドを実行について
- VB.NET上でバイナリデータをDOSコマンド「copy」で結合させる方法
- VB.NETでのDOSコマンド実行に関するトラブルシューティング
- VB.NETのプログラムからDOSコマンドを実行する手順
- ベストアンサー
VB.NETでのDOSコマンドを実行について
VB.NETでのDOSコマンドを実行について いつも大変お世話になっています。 VB.NET上でバイナリデータを DOSコマンド「copy」で結合させたいのですが うまくいきません。ご助言ください。 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 copy /b /y "C:\Program Files\test\Data\out0001.bin"+"C:\Program Files\test\Data\out0002.bin" "C:\Program Files\test\Data\TEST.jpg"" '※コマンドの前後のダブルクォーテーションを省き、コマンドプロンプトで ' 直接実行した場合は成功しました。 '起動 Dim p As System.Diagnostics.Process=_ System.Diagnostics.Process.Start(psi) '出力を読み取る results = p.StandardOutput.ReadToEnd '出力された結果を表示 Console.WriteLine(results) 'WaitForExitはReadToEndの後である必要がある '(親プロセス、子プロセスでブロック防止のため) p.WaitForExit()
- tekesuta_1985
- お礼率93% (14/15)
- Visual Basic
- 回答数2
- ありがとう数3
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
どんなエラーになってますか? おそらく "/c copy /b /y " までで文字列 C:\Program Files\test\Data\out0001.bin が文字列の外 "+" が文字列 C:\Program Files\test\Data\out0002.bin が文字列の外 ... となっているのではないかと思います。 "/c copy /b /y ""C:\Program Files\test\Data\out0001.bin""+""C:\Program Files\test\Data\out0002.bin"" ""C:\Program Files\test\Data\TEST.jpg""" と"から"の間に"を書きたいときは、""と2つ続けるはずです。 (最後が3つなのは、前の2つは"を文字列に入れるため、最後の一つは文字列の終りです) それか、いっそCOPYコマンドを使わず、VBだけでファイルの読み書きするかです。
その他の回答 (1)
パッと見た感じでは、psi.Arguments の編集がおかしいだけではないでしょうか。 「Program Files」という空白付のファイルパスを指定しているので、これを「"」で囲む必要があるのは よいとして、VBでは .../c copy /b /y ""C:\Program Files.... という具合に、文字列の中で「"」を重ねて指定する必要があります。
お礼
ありがとうございます。 無事解決しました。m(__)m
関連するQ&A
- VB.NETでDOSコマンドの複数実行
VB.NETでバッチファイルを使わずにDOSコマンドの複数実行をしたいのですが、 試しに Dim results As String 'ComSpecのパスを取得する psi.FileName = System.Environment.GetEnvironmentVariable("ComSpec") '出力を読み取れるようにする psi.RedirectStandardInput = False psi.RedirectStandardOutput = True psi.UseShellExecute = False 'ウィンドウを表示しないようにする psi.CreateNoWindow = True 'コマンドラインを指定（"/c"は実行後閉じるために必要） 'psi.Arguments = "/c " & asCmd & " /w" psi.Arguments = "/c " & "CD C:\" & " /w" '起動 p = System.Diagnostics.Process.Start(psi) '出力を読み取る results = p.StandardOutput.ReadToEnd '出力された結果を表示 Console.WriteLine(results) psi.Arguments = "/c " & "DIR" & " /w" '起動 p = System.Diagnostics.Process.Start(psi) '出力を読み取る results = p.StandardOutput.ReadToEnd '出力された結果を表示 Console.WriteLine(results) 'WaitForExitはReadToEndの後である必要がある '(親プロセス、子プロセスでブロック防止のため) p.WaitForExit() というプログラムを作成したのですが、DIRは実行されるのですが、 Cドライブに移動ができません。 何が悪いのでしょうか? 実現できる方法があればご教授ください。
- ベストアンサー
- Visual Basic
- コマンドプロンプトの出力をテキストボックスへ表示する方法について
コマンドプロンプトの出力をテキストボックスへ表示する方法について 現在、VBを使ったプログラミングを行っています。 以下に質問内容を示しますので、回答を宜しくお願いします。 ＜環境＞ OS:Windows XP 開発ソフト:VB2008 express edition 質問：コマンドプロンプトの出力をテキストボックスへ表示する方法について リダイレクトを使って、コマンドプロンプトの出力結果をVBのフォーム上(テキストボックス) に表示したいのですが、常に出力が更新されるコマンドの場合、実行後にフリーズが起きてしまいます。 以下の例ではpingを送っていますが、テキストボックスには常にコマンドの出力結果が更新されません。(実行が終わるまで待つ必要がある) 理想としては、pingコマンドを実行したときの結果が、そのままテキストボックス上にリアルタイムに表示されることです。 リアルタイムにテキストボックスにコマンドプロンプトの結果を表示するには、 どのような設定が必要になるのでしょうか？ ご教授願います。宜しくお願いします。 ----- 以下サンプルソース ----- Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 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 ping 192.168.1.1" '起動 Dim p As System.Diagnostics.Process = System.Diagnostics.Process.Start(psi) '出力を読み取る results = p.StandardOutput.ReadToEnd '出力された結果を表示 TextBox1.Text = results 'WaitForExitはReadToEndの後である必要がある '(親プロセス、子プロセスでブロック防止のため) p.WaitForExit() End Sub End Class
- ベストアンサー
- Visual Basic
- VBプログラムから「管理者として実行」したい
コマンドプロンプトで実行したいコマンドが 「route add ***.***.***.*** mask 255.255.255.255 ***.***.***.***」 (*は、任意のIP) だとします。 XPでは問題ないですが、Vista以降だと、管理者権限が必要なコマンドのため、 そもそもコマンドプロンプト自体を「管理者として実行」モードで起動する必要があります。 上記を、手作業で行う場合は、それで解決しますが、 同じ事を、VBのコードから実行したい場合、 System.Diagnostics.Process.Start を使い、（以下サンプルコード） --------------------------- Dim psi As New System.Diagnostics.ProcessStartInfo() psi.FileName = System.Environment.GetEnvironmentVariable("ComSpec") psi.UseShellExecute = False psi.CreateNoWindow = True psi.Arguments = "/c route add ***.***.***.*** mask 255.255.255.255 ***.***.***.***" Dim p As System.Diagnostics.Process = System.Diagnostics.Process.Start(psi) p.WaitForExit() ----------------------------------------------------------- とすると、XPでは、管理者権限を問われないので実行できますが、 Vista以降だと、コマンドが管理者権限で実行されていないためか実行が完了せず、コマンドの内容も行われていません。（route addコマンドの記述にミスは無いとします。） Vista以降の場合、手作業で、コマンドプロンプトを右クリックして「管理者として実行」を選んで起動し、コマンドを実行するのと同じ事を、 VBのコードから行うには、どうしたらいいのでしょうか？ 分かる方、教えてください。お願いします。
- ベストアンサー
- Visual Basic
- 【VB.NET】コマンドプロンプトの操作について
今晩は、質問させていただきます。どうぞよろしくお願いいたします。 環境： VB2008 Express Edition + Win7（もしくはVistaもしくはXP） でございます。 VBからコマンドプロンプト（あまり使い方を存じません）を操作できているかどうか テストする為に、下記のように操作させてみましたがうまくいきません。。 ・Debugフォルダにコマンドプロンプトを起動 →コマンドプロンプトの内容表示（←成功） ・Debugフォルダにコマンドプロンプトを起動 →「cd ../ 」 →コマンドプロンプトの内容表示（←何故か何も表示されません。） http://soudan1.biglobe.ne.jp/qa5873147.html を参考にさせていただいて、コーディングいたしました↓ Dim psi As New System.Diagnostics.ProcessStartInfo() psi.FileName = System.Environment.GetEnvironmentVariable("ComSpec") psi.RedirectStandardInput = False '出力を読み取れるようにする psi.RedirectStandardOutput = True psi.UseShellExecute = False psi.CreateNoWindow = True 'ウィンドウを表示しないようにする 'コマンドラインを指定 psi.Arguments = "/c cd ../" '←ここです。 Dim p As System.Diagnostics.Process = System.Diagnostics.Process.Start(psi) '起動 Threading.Thread.Sleep(1000) Do results = p.StandardOutput.ReadLine temp = temp & results Application.DoEvents() cnt = cnt + 1 Loop Until cnt = 1000 p.WaitForExit() MsgBox(temp) 最後のMsgBoxに何も文字が表示されません。。。 コード中の「ここです」の行をコメントアウトいたしますと、最後のMsgBoxに 「Microsoft Windows XP ～D:\～bin\Debug>」 とフォルダ名が表示できます。 psi.Arguments = "/c cd ../" がちゃんと送れていないのでございましょうか？？ 色々と試行錯誤しておりますが、うまくいきません。 試しにpsi.CreateNoWindow = False などとしてみても一瞬で画面が消えてしまうため うまくバグ取りの打開策が見いだせておりません。 もしお詳しい方がいらっしゃいましたら是非ともアドバイスいただけないでしょうか。 どうぞよろしくお願いいたします。
- ベストアンサー
- Visual Basic
- PDFの印刷で。。。
C＃よりAcrobatReaderにPDFをエクスポートして印刷を行う処理 を作成中です。 そこで質問ですが，エクスポートされたPDFを印刷する際に、 PDFを開かずに印刷することは可能でしょうか？ 現在、ネットよりいろいろ調べて組み込んだロジックでは印刷をする ことはできましたが、どうしてもPDFが開かれてしまいます。 ソースを以下に載せましたのでご教授願います。 System.Diagnostics.ProcessStartInfo psi = new System.Diagnostics.ProcessStartInfo(); //パスを取得する psi.FileName = @"C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe"; //出力を読み取れるようにする psi.RedirectStandardInput = false; psi.RedirectStandardOutput = true; psi.UseShellExecute = false; //ウィンドウを表示しないようにする psi.CreateNoWindow = true; //コマンドラインを指定 psi.Arguments = @"/t " + Application.StartupPath + "\\PDFExpt.PDF"; System.Diagnostics.Process p = System.Diagnostics.Process.Start(psi); //出力を読み取る string results = p.StandardOutput.ReadToEnd(); p.WaitForExit(); p.Close(); p.Dispose(); 申し訳ありませんがよろしくお願い致します。
- ベストアンサー
- その他（プログラミング・開発）
- VB.NETからPerlを呼び出す
メール自動送信機能をPerlで作成しました。 （仮にhello.plとします）hello.plを「C:\」においています。 コマンドプロンプトから次のようにperlコマンドを実行してた場合、 メールが自動送信されたことは確認できています。 perl hello.pl 同じようにVB.NETから実行したいのですが、上手くいきません。 ソース記述は以下の通りです。 Dim p As System.Diagnostics.Process = _ System.Diagnostics.Process.Start("C:\hello.pl") p.WaitForExit() どなたか分かる方がいらしたら、教えてください。
- ベストアンサー
- Visual Basic
- Query sessionを実行させるには？
お世話になります。 DOSコマンドの"QUERY SESSION"で得たセッション情報を元に、 処理を行いたいと考えております。 そこでVB2010にて下記のプログラムを試したのですが、肝心の"QUERY SESSION"が 『操作可能なプログラム(中略)として認識されていません。』として実行されません。 --------------------------------------------------------- '--Processオブジェクトを作成 Dim pr As New System.Diagnostics.Process pr.StartInfo.FileName = System.Environment.GetEnvironmentVariable("ComSpec") p.StartInfo.UseShellExecute = False p.StartInfo.RedirectStandardOutput = True p.StartInfo.RedirectStandardInput = False 'コマンドラインを指定 pr.StartInfo.Arguments = "/c QUERY SESSION" '<--------問題個所？ pr.Start() '出力を読み取る Dim results As String = pr.StandardOutput.ReadToEnd() pr.WaitForExit() pr.Close() --------------------------------------------------------- 上記のコマンドラインの部分を、 pr.StartInfo.Arguments = "/c ipconfig" など他のDOSコマンドに変えると正常に動作するのですが、 例えば下記の様に別表現でQuery sessionを指定しても同様のエラーが返されるばかりです。 pr.StartInfo.Arguments = "C:\windows\System32\qwinsta.exe" 何が原因となっているのかも分からず困っております。 どうか、お知恵をお貸しください。宜しくお願い致します。
- ベストアンサー
- Visual Basic
- C#.net FTPでホームディレクトリより上へ
いつもお世話になっております。 C#.netでWebClientやFtpWebRequestを使用して FTPツールを開発していますが、ホームディレクトリより上の階層を参照する方法が見つかりません。 流れとしてはプロキシ サーバーまたはファイアウォールを経由してあるサーバにアクセスして一つ上の階層にあるフォルダにデータを送たいのです。アクセス権限はあります。 また、DOBONさんのところや他の方のプログラムなどを参考にしてプログラムからコマンドプロンプトを操作してFTPを使用してみようと思いましたがフリーズして上手くいきませんでした。 string[] strCmds = {@"/c ftp", @"/c localhost"@"/c user",@"/c password" }; for ( int i = 0; strCmds.Length; i++ ) { psi.Arguments = strCmds[i]; System.Diagnostics.Process p = System.Diagnostics.Process.Start(psi); string results = p.StandardOutput.ReadToEnd(); p.WaitForExit(); Console.WriteLine(results); } このプログラムの修正方法、または他の方法がありましたら教えていただけるとありがたいです。
- ベストアンサー
- C・C++・C#
- VS2008 VB.NETでのWindowsサービスアプリケーションに
VS2008 VB.NETでのWindowsサービスアプリケーションについて VS2008 VB.NET でプログラムの勉強と思いWindowsサービス アプリケーションを作っています。 機能は、自分が起動したら指定された別のアプリケーションを 起動するという簡単なものです。 試しに別アプリケーションとしてメモ帳を指定してみました。 XPでは、メモ帳の画面が表示されたのですが、Vistaでは 「対話型サービスアプリケーションの検出」という画面が表示さ れメモ帳の画面が表示されませんでした。 起動の方法は以下のとおりです。 Dim psi As New System.Diagnostics.ProcessStartInfo() psi.FileName=<メモ帳のファイル名> psi.WindowStyle = System.Diagnostics.ProcessWindowStyle.Normal System.Diagnostics.Process.Start(psi) Vistaではこの方法ではいけないのでしょうか。 よろしくお願いいたします。
- 締切済み
- Visual Basic
- VBAでdosのcompコマンドの実行結果を得たい
Excel2010のVBAで、 MS-DOSのcompコマンドの実行結果を取得したいのですが、 以下の方法ではうまくいきませんでした。 どのようにすればよいでしょうか。(Windows7) ------------------------------------------------------------ Sub test() Dim wshShell As Object Dim wshExec As Object Dim command As String Dim file1 As String Dim file2 As String Dim result As String file1 = "C:\test\0128\test.xlsx" file2 = "C:\test\0129\test.xlsx" 'command = "dir /d " & file1 & " " & file2 '(OK) 'command = "fc /b " & file1 & " " & file2 '(OK) command = "comp " & file1 & " " & file2 '(NG) 'command = "echo n | comp " & file1 & " " & file2 '(NG) Debug.Print command Set wshShell = CreateObject("WScript.Shell") Set wshExec = wshShell.exec("%ComSpec% /c " & command) Do Until wshExec.Status DoEvents Loop If wshExec.StdErr.AtEndOfStream = False Then 'エラー result = wshExec.StdErr.ReadAll Else '正常 result = wshExec.StdOut.ReadAll End If Set wshExec = Nothing Set wshShell = Nothing MsgBox result End Sub ------------------------------------------------------------
- ベストアンサー
- Excel（エクセル）
お礼
わかりやすい解説も付けていただき、 ありがとうございます。 無事解決しました。m(__)m