using a dynamic array

[chriscj21]

Guys:

Hope someone can help - sure this is fairly obvious to an experience scripter but can someone please explain why my code will not compile:

______________________________________


Dim objFso, objFile, returnString, arrError, i

Const FOR_READING = 1
Set objFso = WScript.CreateObject("Scripting.FilesystemObject")


If objFso.FileExists ("C:\windows\setuplog.txt") Then

Set objFile = objFspenTextFile("C:\windows\setuplog.txt", FOR_READING)


Do While objFile.AtEndOfStream <> True

returnString = objFile.ReadLine

If InStr (returnString, "Error") Then

For i = 0 To UBound(arrError)

arrError(i) = returnString

Wscript.echo returnstring

ReDim preserve arrError(i)

i = i + 1

Next

End If

Loop


End If



ChrisCj21
MCSE, A+, N+

 

[mrmovie]

you havent intilised arrError at the start of the script

tery something like

Dim arrError()

or

Dim arrError(1)

 

[chriscj21]

Thanks for getting back to me - have tried this also to no avail


chris


ChrisCj21
MCSE, A+, N+

 

[chriscj21]

Fixed it!!!
________________________________________________


Set objFso = WScript.CreateObject("Scripting.FilesystemObject")


If objFso.FileExists ("C:\windows\setuplog.txt") Then

Set objFile = objFspenTextFile("C:\windows\setuplog.txt", FOR_READING)


Do While objFile.AtEndOfStream <> True
i = 0
returnString = objFile.ReadLine

If InStr(returnString, "error") Then


ReDim Preserve arrError(i)

arrError(i) = returnString

WScript.Echo (arrError(i))

End If

i = i + 1

Loop

End If



ChrisCj21
MCSE, A+, N+