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

Tianorder

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

1. do
   
2. Loop while ReadFile.atendofstream <> true

复制代码

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

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

1. Do While not ReadFile.AtEndOfStream
   
2. Loop

复制代码

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

1. for i = 0 to UBound(arrDest)

复制代码

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

codegay

默认的解释器
因为解释器在system32目录中，所以任务计划启动后会当前路径会变成system32,
所以程序中需要用绝对路径。

Tianorder

回复 2# codegay


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

yu2n

回复 3# Tianorder


    贴全你的代码（替换掉你认为隐私的部分）。这几句代码看不出什么来。

Tianorder

回复 4# yu2n

1. Set fso = CreateObject("Scripting.FileSystemObject")
   
2. Set ReadFile = fso.OpenTextFile("config.ini", 1, True)
   
3. boolErr = false
   
4. i = 0
   
5. '循环文件，放入数组
   
6. Do   
   
7.         cha = ReadFile.ReadLine
   
8.         if  Left(cha, 1) <> ";" and Left(cha, 1) <> "[" and cha <> "" Then
   
9.                 ReDim Preserve arrDest(i + 1)
   
10.                 arrDest(i) = cha
    
11.                 i = i + 1
    
12.         End if
    
13. Loop while ReadFile.atendofstream <> true
    
14. x = ""
    
15. count = UBound(arrDest)
    
16. for i = 0 to count
    
17.         x = x & vbCrLf & arrDest(i)
    
18. Next
    
19. msgbox x
    
20. ReadFile.Close
    
21. Set fso = nothing

复制代码

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

yu2n

回复 5# Tianorder

数组序号是从 0 开始，第 9 行建议应该这样写：

1.                     ReDim Preserve arrDest(i)

复制代码

参照你的思路，看看以下代码是否可行：

1. Option Explicit
   
2. 
   
3. Dim fso, strText, strLine, arrDest(), i
   
4. Set fso = CreateObject("Scripting.FileSystemObject")
   
5. 
   
6. strText = fso.OpenTextFile("config.ini", 1, True).ReadAll
   
7. 
   
8. i = 0
   
9. For Each strLine In Split(strText, vbCrLf)
   
10.         If Left(strLine, 1) <> ";" And Left(strLine, 1) <> "[" And strLine <> "" Then
    
11.                 ReDim Preserve arrDest(i)
    
12.                 arrDest(i) = strLine
    
13.                 i = i + 1
    
14.         End if
    
15. Next
    
16. 
    
17. Msgbox Join(arrDest, vbCrLf)
    

复制代码

Tianorder

回复  Tianorder

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

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

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

yu2n

回复 7# Tianorder


    计划任务的问题，2楼已经说明过了。如果你不会绝对路径，可以参考下面的“相对路径”：

1. Option Explicit
   
2. 
   
3. Dim wso, fso, strText, strLine, arrDest(), i
   
4. Set wso = CreateObject("WScript.Shell")
   
5. Set fso = CreateObject("Scripting.FileSystemObject")
   
6. 
   
7. '指定当前路径
   
8. wso.CurrentDirectory = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "") -1)
   
9. 
   
10. strText = fso.OpenTextFile("config.ini", 1, True).ReadAll
    
11. 
    
12. i = 0
    
13. For Each strLine In Split(strText, vbCrLf)
    
14.         If Left(strLine, 1) <> ";" And Left(strLine, 1) <> "[" And strLine <> "" Then
    
15.                 ReDim Preserve arrDest(i)
    
16.                 arrDest(i) = strLine
    
17.                 i = i + 1
    
18.         End if
    
19. Next
    
20. 
    
21. Msgbox Join(arrDest, vbCrLf)
    

复制代码

Tianorder

回复 8# yu2n


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

我再思考下。谢了。