[VB+DOSプロンプト]ＶＢから .BAT ファイルを実行したい。

解決済

質問者：zenon55
質問日時：2003/07/12 15:32
回答数：2件

お世話になります～♪

ＶＢであるソフト（ツール）を作っています。
途中でボタンをクリックして「jikkou.bat」を実行したいと考えています。

可能なのでしょうか？また、どのようにしてやればいいでしょうか？

いろいろやってみましたが、うまくいかないんです。
宜しくお願いいたします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： imogasi
回答日時：2003/07/12 17:47

メモ帳で

cd c:\windows
dir "c:\my documents"
calc
exit
を入力し、my documentsにaaa.batと名をつけ保存しました。
Private Sub CommandButton1_Click()
MsgBox "aaa実行"
Shell "c:\my documents\aaa.bat", vbNormalFocus
MsgBox "終了"
End Sub
を作り、ボタンをクリックしました。
実行され電卓が現われたりしました。
これでは良くご存知で質問するほどではないかと思うので、どの辺りにお困りですか。

- 0
- 件

通報する

No.1

回答者： rara_sun
回答日時：2003/07/12 16:16

http://www7.plala.or.jp/imajo/ke/samp/samp06.html

このURLの一番下のサンプルが参考になると思います。
Shellという関数を利用します。
がんばってください。

- 0
- 件

通報する

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

専門家回答数ランキング

専門家

※過去一週間分の回答数ランキングです。

質問する（無料）

他の専門家の回答をチェック

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QShell関数からバッチファイルを起動後に、バッチファイルが終了するまで待ちたい。

はじめまして。
掲題の通り、VB.netからshell関数を用いてバッチファイルを起動します。
その後、そのバッチファイルが終了してログファイルの出力を完了した後に、
ファイルを開いて確認したいのです。
thread.sleepなどで大体このくらいかなという時間を待ってみる、
などのやり方しか今は思いつかないのですが、
何か明確にバッチファイルの終了を受け取れる方法は無いものでしょうか。

どなたかご存知の方がいらっしゃいましたらご教授ください。

Aベストアンサー

Shell関数より Processクラスで実行したほうが簡単に待てますよ

Dim oPro as Process
oPro = Process.Start("..\..\a.bat")
oPro.WaitForExit()
MessageBox.Show("Hello")

といった具合です

他の回答も見る

QVBからBATファイルを起動して戻り値の取得方法

VBからBATファイルを起動して戻り値（エラーコード）を
もらうにはどうすれば良いのでしょうか？
WshShellという関数を使用することは、何となく分かるのですが
宜しければサンプルを教えていただけないでしょうか？

Aベストアンサー

>WScript.CreateObjectの
>ところで"オブジェクトが必要です"となってしまいます。

VBのときは、CreateObjectですね。

他の回答も見る

QVBフォームアプリケーションにおけるcmdプロンプトの実行

OSはwin8.1 64bitです。

VBフォームアプリケーション上に設置したコマンドボタンを押すだけで
コマンドプロンプトからwindowsエクスペリエンスインデックスを実行したいと考えているのですが、
Windowsから直接立ち上げたコマンドプロンプトに「winsat formal -restart clean」と
入力すると問題なく始まるものの、
VBフォームから実行すると、「'winsat' は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチファイルとして認識されていません」とエラーが出ます。

Dim S...続きを読む

Aベストアンサー

ユーザー名を指定しないと、なぜかDirで出て来ませんでした。
（少し調べれば、分かるかもしれませんが・・・）
以下で、起動しました。環境は、VB2008でやってみました。
テストしながらしてるので、注釈が入っております。

Dim strUserName As String = "UserName"'Windowsのユーザー名
Dim strPassText As String = "Password" 'パスワード
Dim prss1 As New System.Diagnostics.Process
Dim secStr As New System.Security.SecureString
For Each c As Char In s...続きを読む

他の回答も見る

QVB.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

'ウィン...続きを読む

Aベストアンサー

どんなエラーになってますか?

おそらく
"/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だけでファイルの読み書きするかです。

他の回答も見る

QVB.NETで他のEXEを実行させる

VB.NETで他のEXEを実行させる以下の２つの方法が知りたいです。

１）perlのsystemのように実行完了後に制御が戻る

２）perlのexecのように実行完了後に制御が戻らない

あと、この２つの使い分けのコツ（用途）が知りたいです。

Aベストアンサー

http://jeanne.wankuma.com/tips/vb.net/process/
こちらの8番と9番をどうぞ。

使い分けですが、
実行完了を待って次の処理をする必要がある場合は、制御が戻るまで待つ、そうでないものはキックして終わり、です。

他の回答も見る

QVBプログラムから「管理者として実行」したい

コマンドプロンプトで実行したいコマンドが
「route add ***.***.***.*** mask 255.255.255.255 ***.***.***.***」 (*は、任意のIP)
だとします。

XPでは問題ないですが、Vista以降だと、管理者権限が必要なコマンドのため、
そもそもコマンドプロンプト自体を「管理者として実行」モードで起動する必要があります。

上記を、手作業で行う場合は、それで解決しますが、
同じ事を、VBのコードから実行したい場合、
System.Diagnostics.Process.Start
を使い、（以下サンプルコード）
---------------------------...続きを読む

Aベストアンサー

http://www.atmarkit.co.jp/fdotnet/dotnettips/954uacrunas/uacrunas.html

他の回答も見る

QVB.NETでコマンドプロンプトの操作

VB.NET2005を使用しています。
コマンドプロンプトを起動し、コーディングで操作したいのですが
どのようにすればよいのでしょうか？

行いたいことは、手動で以下を行ったイメージです。
１）コマンドプロンプトを起動
２）「cd c:\」のような文字列を入力し、Enterを押す

Aベストアンサー

System.Diagnostics.Processと AppActivate、SendKeysを使う事になりそうです

何かのイベントで
　　Dim oCmd As New System.Diagnostics.Process
　　oCmd.StartInfo.UseShellExecute = True
　　oCmd.StartInfo.FileName = "cmd.exe"

　　oCmd.Start()
　　' コマンドプロンプトが起動するまで待つ
　　' 引数は適宜修正してください
　　Threading.Thrad.Sleep( 200 )
　　' 起動したコマンドプロンプトのタイトル名を引数にする
　　AppActivate( "c:\windows\System32\cmd.exe" )
　　SendKeys.SendWait( "cd c:\{Enter}" )

といった具合でしょう

他の回答も見る

Qフルパスから最後のディレクトリ名を取得したい。

vb.netなのですが、例えば
c:\aaa\bbb\ccc\ddd\eee\fff.exe
というフルパスがあったとして、
eeeというディレクトリ名を取得したいのですが、
何か良い方法はないでしょうか。
それぞれのディレクトリ名の文字数や階層数は
決まっていないのですが、オススメの方法が
ありましたら、教えて頂けると助かります。

Aベストアンサー

MessageBox.Show(IO.Path.GetFileName(IO.Path.GetDirectoryName(myPath)))

IO.Path の GetDirectoryName でフォルダのフルパスを取得して、さらに IO.Path の GetFileName で最終フォルダ(またはファイル)の名前を取得。

他の回答も見る

Qバッチへ値を返す

バッチファイルからVB作成のEXEファイルを起動させて、EXEの結果をバッチファイルに出力するにはどのような処理をすればよいでしょうか？

Aベストアンサー

＃２です。
VB6でしたね

ただ単に　ＯＳ側に終了コードを返すだけなら

以下のＨＰの情報が役に立つのでは

■[VB-TIPS] VBでプログラム終了コードを返すには
　　→　http://d.hatena.ne.jp/chaichanPaPa/20071104/1194147591
　　
　　
◆プログラムの終了コードを取得する
　　→ http://jeanne.wankuma.com/tips/vb6/process/exitcode.html
　　
#2 の方法は何か処理を行った値を渡したいときに有効です。
ＶＢ.NET 2005 で作成しましたが　VB6 のソースに書き換えれば同じことができるはずです。 #2の方法で　終了コードを結果出力するように
してあげれば　ＯＳに結果コードを渡したのと同じ動作をするバッチファイルも作れます。　