yu2n

回复 3# Tianorder


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

yu2n

回复 5# Tianorder

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

    		ReDim Preserve arrDest(i)
复制代码

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

Option Explicit

Dim fso, strText, strLine, arrDest(), i
Set fso = CreateObject("Scripting.FileSystemObject")

strText = fso.OpenTextFile("config.ini", 1, True).ReadAll

i = 0
For Each strLine In Split(strText, vbCrLf)
	If Left(strLine, 1) <> ";" And Left(strLine, 1) <> "[" And strLine <> "" Then
		ReDim Preserve arrDest(i)
		arrDest(i) = strLine
		i = i + 1
	End if
Next

Msgbox Join(arrDest, vbCrLf)
复制代码

yu2n

回复 7# Tianorder


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

Option Explicit

Dim wso, fso, strText, strLine, arrDest(), i
Set wso = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

'指定当前路径
wso.CurrentDirectory = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\") -1)

strText = fso.OpenTextFile("config.ini", 1, True).ReadAll

i = 0
For Each strLine In Split(strText, vbCrLf)
	If Left(strLine, 1) <> ";" And Left(strLine, 1) <> "[" And strLine <> "" Then
		ReDim Preserve arrDest(i)
		arrDest(i) = strLine
		i = i + 1
	End if
Next

Msgbox Join(arrDest, vbCrLf)
复制代码