[问题求助] 【已解决】求解vbs直接双击执行正常，使用任务计划执行则报错是什么原因

Tianorder

双击运行时无错，而windows计划任务出错
开始时，我使用了

do
Loop while ReadFile.atendofstream <> true
复制代码

这个双击不会报错，而用windows计划任务执行时，会报错“输入超出了文件尾”。

我改成这个，计划任务就可以顺利执行了。

Do While not ReadFile.AtEndOfStream
Loop
复制代码

但是，之后，计时任务报错“类型不匹配：'UBound'”，但是双击时并不报错。
代码是

for i = 0 to UBound(arrDest)
复制代码

我想，应该不是类型之类的问题，而是windosw计划任务解释器的问题。
我想问的是，windows计划任务解析VBS文件，用的是哪个解释器？相关的教程地址是？

Tianorder

回复 2# codegay


    但是...报错并不是路径的错呀

Tianorder

回复 4# yu2n

Set fso = CreateObject("Scripting.FileSystemObject")
Set ReadFile = fso.OpenTextFile("config.ini", 1, True)
boolErr = false
i = 0
'循环文件，放入数组
Do   
	cha = ReadFile.ReadLine
	if  Left(cha, 1) <> ";" and Left(cha, 1) <> "[" and cha <> "" Then
		ReDim Preserve arrDest(i + 1)
		arrDest(i) = cha
		i = i + 1
	End if
Loop while ReadFile.atendofstream <> true
x = ""
count = UBound(arrDest)
for i = 0 to count
	x = x & vbCrLf & arrDest(i)
Next
msgbox x
ReadFile.Close
Set fso = nothing
复制代码

我觉得并不是代码的错，就如1L所言，双击时是不会有问题的，但win计划任务会报错“输入超出了文件尾”。
把 while ReadFile.atendofstream <> true 放到do后面时，不会出现这个错误，但是会出现Ubound的错误。
把 while ReadFile.atendofstream <> true 放到do后面、不使用Ubound时，计划任务可以正常执行。

Tianorder

回复  Tianorder

数组序号是从 0 开始，第 9 行建议应该这样写：参照你的思路，看看以下代码是否可行：
yu2n 发表于 2016-8-15 19:20

  呃，实际上我已想出可行的方案。
现在就是想知道原因，为什么这样不行。
是因为Windows计划任务的解释器不一样吗？

你写的这段脚本也是“输出超出了文件尾”，当然，双击是没有错误的。

Tianorder

回复 8# yu2n


    计划任务可以运行本代码。

我再思考下。谢了。