質問編集履歴
2
エラー内容追記
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,8 +1,10 @@
|
|
|
1
1
|
VBSでバッチを呼び出し、バッチ処理の時間計測を行いたいのですが、
|
|
2
|
+
WshShell.Run ("if.bat", 1 , 1);の所で、
|
|
3
|
+
subプロージャーを呼び出す時、かっこを使うことはできません。と表示され
|
|
2
|
-
|
|
4
|
+
コンパイルエラーとなってしまいます。
|
|
3
|
-
一応、10と表示されるので・・・合っているような気がするのですが、
|
|
4
|
-
いかがでしょう？
|
|
5
5
|
|
|
6
|
+
何が間違っているのでしょうか？
|
|
7
|
+
|
|
6
8
|
```VBS
|
|
7
9
|
Option Explicit
|
|
8
10
|
|
|
@@ -15,8 +17,7 @@
|
|
|
15
17
|
startTime=Time
|
|
16
18
|
|
|
17
19
|
'バッチを呼び出し処理させます。
|
|
18
|
-
'暫定的に10秒止めているだけです。
|
|
19
|
-
|
|
20
|
+
WshShell.Run ("if.bat", 1 , 1);
|
|
20
21
|
|
|
21
22
|
endTime=Time
|
|
22
23
|
|
1
コード修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
VBSで
|
|
1
|
+
VBSでバッチを呼び出し、バッチ処理の時間計測を行いたいのですが、
|
|
2
2
|
下記のコードで合っているでしょうか？
|
|
3
3
|
一応、10と表示されるので・・・合っているような気がするのですが、
|
|
4
4
|
いかがでしょう？
|
|
@@ -9,10 +9,13 @@
|
|
|
9
9
|
Dim startTime
|
|
10
10
|
Dim endTime
|
|
11
11
|
Dim diffTime
|
|
12
|
+
Dim WshShell
|
|
13
|
+
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
12
14
|
|
|
13
15
|
startTime=Time
|
|
14
16
|
|
|
15
|
-
'
|
|
17
|
+
'バッチを呼び出し処理させます。
|
|
18
|
+
'暫定的に10秒止めているだけです。
|
|
16
19
|
WScript.Sleep 10000
|
|
17
20
|
|
|
18
21
|
endTime=Time
|