質問編集履歴
2
文法の修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -4,6 +4,7 @@
|
|
|
4
4
|
|
|
5
5
|
監視対象ログファイルが、VBSとは他のファイルにあるのが問題なのかと思うのですが、ファイル構成は変更したくないため、スクリプトのどの部分を変更すればエラーが解決し正常にスクリプトが動くか、お力を貸してください。
|
|
6
6
|
|
|
7
|
+
ちなみに、同じファイルにログをおいたときは、問題なく動きました。
|
|
7
8
|
|
|
8
9
|
```VBScript
|
|
9
10
|
Dim host
|
1
文法の修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -5,7 +5,7 @@
|
|
|
5
5
|
監視対象ログファイルが、VBSとは他のファイルにあるのが問題なのかと思うのですが、ファイル構成は変更したくないため、スクリプトのどの部分を変更すればエラーが解決し正常にスクリプトが動くか、お力を貸してください。
|
|
6
6
|
|
|
7
7
|
|
|
8
|
-
```
|
|
8
|
+
```VBScript
|
|
9
9
|
Dim host
|
|
10
10
|
Dim WshNetwork
|
|
11
11
|
Dim domain
|
|
@@ -57,7 +57,7 @@
|
|
|
57
57
|
'最初のスペースまでの一つめだけとる
|
|
58
58
|
aryFile = Split(lineStr, " ")
|
|
59
59
|
|
|
60
|
-
logfile = "C:\BATCH_LOG\
|
|
60
|
+
logfile = "C:\BATCH_LOG\" + strFormattedDate + "_robocopy_" + aryFile(0) + ".log"
|
|
61
61
|
|
|
62
62
|
Set tmpFile = WSHFso.OpenTextFile(logfile)
|
|
63
63
|
Do Until tmpFile.AtEndOfStream
|