Out of range error in vbscript array.

I am trying to populate a bidimensional array using the following VBscript codes:
...........
Sequen=0
For Each objFileLoop in objWrkFolder.Files
Sequen=Sequen+1
 ReDim Preserve astrRecord(Sequen,4)
astrRecord(Sequen-1,0)=Sequen
astrRecord(Sequen-1,1)=CStr(objWb.Cells(2, 2).Value)
astrRecord(Sequen-1,2)=Right(objwb.Cells(1,9).value,Len(objwb.Cells(1,9).value)-15)
astrRecord(Sequen-1,3)="dDocument_Service"
next
....................

This loop should populate an array from a given excel spread sheet. I am able to te get the first row of the array but on the second loop turn, i got the error message: Out of range error.
Do you guys have another solution for those codes?
Thank you!!
ggmisadminAsked:
Who is Participating?
 
fastlivehelpCommented:
Try this:

...........
Sequen=0
For Each objFileLoop in objWrkFolder.Files
Sequen=Sequen+1
 ReDim Preserve astrRecord(4,Sequen)
astrRecord(0,Sequen-1)=Sequen
astrRecord(1,Sequen-1)=CStr(objWb.Cells(2, 2).Value)
astrRecord(2,Sequen-1)=Right(objwb.Cells(1,9).value,Len(objwb.Cells(1,9).value)-15)
astrRecord(3,Sequen-1)="dDocument_Service"
next
....................

The redim only works on the last dimension of the array.

--John
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.