VB.NETでDOSコマンドの複数実行方法とCドライブ移動できない問題

前へ 次へ
このQ&Aのポイント
  • VB.NETでバッチファイルを使わずにDOSコマンドの複数実行をする方法を探しています。試しにプログラムを作成しましたが、Cドライブに移動できない問題が発生しています。
  • 作成したVB.NETプログラムでは、ComSpecのパスを取得し、指定したコマンドを実行して結果を表示するようにしています。しかし、DIRコマンドは実行されるものの、Cドライブに移動ができません。
  • 以上の問題を解決するために、VB.NETでDOSコマンドの複数実行方法やCドライブに移動する方法について知識やアドバイスがある方に教えていただきたいです。
回答を見る
  • ベストアンサー

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ドライブに移動ができません。 　 何が悪いのでしょうか? 実現できる方法があればご教授ください。

質問者が選んだベストアンサー

  • ベストアンサー
  • redfox63
  • ベストアンサー率71% (1325/1856)
回答No.1

原因は最初に起動したプロセスが CD C:\ を実行して終了してしまうためです 2度目のに起動された cmd.exe(またはcommand.com)は初期状態で起動されてしまいます したがってDIRコマンドは意図したフォルダーで実行されません DOSコマンドを複数実行したいなら &&でつなぎましょう psi.Arguments = "/c " & "CD C:\" & " && dir /w" といった具合です デバッグ段階では psi.CreateNoWindow = False のようにドス窓を表示するようにしていた方がいいように思います

KOKORO80
質問者

お礼

回答ありがとうございます。&&でつなげれば出力されるようになりました。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • 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()

  • 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); } このプログラムの修正方法、または他の方法がありましたら教えていただけるとありがたいです。

  • 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を使ったプログラミングを行っています。 以下に質問内容を示しますので、回答を宜しくお願いします。 ＜環境＞ 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

  • 【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 などとしてみても一瞬で画面が消えてしまうため うまくバグ取りの打開策が見いだせておりません。 　もしお詳しい方がいらっしゃいましたら是非ともアドバイスいただけないでしょうか。 どうぞよろしくお願いいたします。

  • VB2008でコマンド実行

    VB2008のフォームからボタンをクリックして、ＤＯＳコマンドを実行したいのですが うまくいきません。 http://dobon.net/vb/dotnet/process/standardoutput.html にあるサンプルをそのまま貼り付けて実行したら Console.WriteLine(results)の実行結果が空白になります。 Debugで見ると BasePriority = {"プロセスは終了しているため、要求された情報は利用できません。"} という表示があるのですが、このサイトのコメントでは、出来ると書いてあるので何が 悪いのか分かりません。 分かる方がいらっしゃったら教えてください。お願いします。

  • 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"   何が原因となっているのかも分からず困っております。   どうか、お知恵をお貸しください。宜しくお願い致します。

  • 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のコードから行うには、どうしたらいいのでしょうか？ 分かる方、教えてください。お願いします。

  • C#でcabファイルをつくる2

    質問者は追記ができないようなので、新しく質問させていただきます。 あるHPを参考に、makecab.exeにパラメータを渡して 動かす方法を行ったのですが、 エラーが出てしまい行き詰っています。 どこがおかしいのでしょうか？ ●エラー内容（下記コードのretの値） ------------------------------------------------------------ Microsoft (R) Cabinet Maker - Version 5.1.2600.5512 Copyright (c) Microsoft Corporation. All rights reserved.. 0.00% - list.txt (1 of 1) 100.00% - list.txt (1 of 1) 0.00% [flushing current folder] 80.56% [flushing current folder] ERROR: (FCIFlushCabinet)Failure creating or writing cabinet file: permission denied ------------------------------------------------------------ ●コード 　list.txt というファイルを a.cab に圧縮する ------------------------------------------------------------ string cmd = @"c:\WINDOWS\system32\makecab.exe"; string trCmd = @"C:\cabTest\work\list.txt a.cab"; System.Diagnostics.ProcessStartInfo psi = new System.Diagnostics.ProcessStartInfo(); psi.FileName = cmd; psi.RedirectStandardInput = false; psi.RedirectStandardOutput = true; psi.UseShellExecute = false; psi.CreateNoWindow = true; psi.Arguments = trCmd; System.Diagnostics.Process p = System.Diagnostics.Process.Start(psi); string ret = p.StandardOutput.ReadToEnd(); p.WaitForExit(); ------------------------------------------------------------ 以下、最初の質問 ------------------------------------------------------------- あるファイルをcabファイルに圧縮（まとめる？）する方法を考えています。 （例えば、a.txt,b.txtをまとめてab.cabにする） Zipの圧縮であれば、 ZipOutputStreamを使ってているサンプル等があるのですが、 それに相当するものがあるのでしょうか？ それとも「makecab」コマンドを投げる方法がよいでしょうか？ -------------------------------------------------------------

  • VBでコンソールアプリの出力を取得したいのですが

    ネット上で入手したコマンドプロンプト上で使うアプリをGUIで操作できるようにしたく出力を取得したいのですが出来ません。 ネットで出力の取得方法を調べて下記のようにしているのですがどうやっても取得できません・・・ （ipconfig や dir 等は問題なく取得できたのですが・・・） VBは2008です Dim p As New Process() p.StartInfo.FileName = "cmd.exe" ' 実行するファイル p.StartInfo.Arguments = "aaa.exe" ' 目的のアプリ p.StartInfo.CreateNoWindow = True ' コンソールを開かない p.StartInfo.UseShellExecute = False ' シェル機能を使用しない p.StartInfo.RedirectStandardOutput = True ' 標準出力をリダイレクト p.Start() ' アプリの実行開始 Dim output As String = p.StandardOutput.ReadToEnd() ' 標準出力の読み取り output = output.Replace(vbCr + vbCrLf, vbLf) ' 改行コードの修正 TextBox1.Text = output ' ［出力］ウィンドウに出力 試しに自分で文字を表示するだけのコンソールアプリを作成して試したのですがそれは取得できました。 目的のアプリが特殊なのでしょうか？　ソースがあったので見てみたのですがC言語だった為詳しくわからなかったのですが、出力は「Console.WriteLine」ではなく「fputs」を使用して出力していました・・・これが原因なのでしょうか？ どうにかして、出力を取得する方法はないものでしょうか？ よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する