回答編集履歴

1

追記

2021/11/26 14:51

投稿

otn
otn

スコア85862

test CHANGED
@@ -23,3 +23,29 @@
23
23
 
24
24
 
25
25
  ただし、順番が前後すると無限に待つことになってしまいますが、`hoge1.bat`が`hoge2.bat`を起動するまで時間がかかるので、すぐに実行しておけば大丈夫かと。
26
+
27
+
28
+
29
+ #追記
30
+
31
+ 一定時間ごとに実行中かどうか調べる。
32
+
33
+ ```VBScript
34
+
35
+ Do While True
36
+
37
+ running = False
38
+
39
+ For Each proc In GetObject("winmgmts:").ExecQuery("select * from Win32_Process where Name='cmd.exe'")
40
+
41
+ If Instr(proc.CommandLine,"hoge2.bat") Then running = True '大文字小文字に注意
42
+
43
+ Next
44
+
45
+ If Not Running Then Exit Do
46
+
47
+ 数秒待つ 'VBAで待つ方法はいろいろあるので、どれか適当に
48
+
49
+ Loop
50
+
51
+ ```