Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2156 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【3680】ACCESSからDOS命令の実行について morik 04/10/12(火) 20:07 質問[未読]
【3681】Re:ACCESSからDOS命令の実行について Gin_II 04/10/12(火) 20:22 回答[未読]
【3683】Re:ACCESSからDOS命令の実行について morik 04/10/13(水) 9:31 お礼[未読]
【3680】ACCESSからDOS命令の実行について
質問  morik  - 04/10/12(火) 20:07 -
引用なし
パスワード
   いつもお世話になっております。

いつも初歩的な質問で申し訳ございません。

現在、ACCESS2000でDOSのコマンドをループで連続(100程度)で実行しているのですが、
DOSの命令が完了する前に次の命令が実行されてしまい、100命令を飛ばしても1つしか結果が返ってこない状態です。

【3650】番のDOSのトピックスを拝見したのですが、知識不足のため理解することができませんでした。

DOSの命令を連続で実行し、1つの命令が終わって次の命令に飛ぶような方法は有るのでしょうか？

対処法をご存知の方ご教授お願い致します。
【3681】Re:ACCESSからDOS命令の実行について
回答  Gin_II  - 04/10/12(火) 20:22 -
引用なし
パスワード
   >100命令を飛ばしても1つしか結果が返ってこない状態です。

1命令ごとに同期をとる必要があるかと。

>【3650】番のDOSのトピックスを拝見したのですが、
このトピックの参照先に、
----------------------------------------------------------------------
Run メソッドの第 3 引数 WaitOnReturn に True を指定することによって、
同期実行（プロセスの完了を待機）になります。
----------------------------------------------------------------------
とあります。

あとは、どのような処理を、どのようなコードでやろうとしているのかが
分からないと。。。
【3683】Re:ACCESSからDOS命令の実行について
お礼  morik  - 04/10/13(水) 9:31 -
引用なし
パスワード
   ▼Gin_II さん：
返信ありがとうございました。
早速、RunメソッドとGin_IIさんから教えていただいたサイトを拝見して以下のような
コードを書きましたら複数の命令を一つ一つ終了した後に実行することができました。

どうもありがとうございました。

Dim oShell As Object
Set oShell = CreateObject("WScript.Shell")
oShell.Run "" & STR & "", , True
Set oShell = Nothing
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2156 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078299
(SS)C-BOARD v3.8 is Free