I am getting a sub-script out of range error when trying
to populate my multi-dimensional array.

Below is the code for declaring the array as well as the
code to populate the code:
ReDim Preserve AppNames(0 To (ArrayCnter - 1), 0 To
(ArrayCnter - 1), 0 To (ArrayCnter - 1))

..
..
..
AppNames(j, 0) = cmbAppList.Text
AppNames(j, 1) = cmbWPA.Text
AppNames(j, 2) = AppLoc & "\" & cmbWPA.Text & "\" &
cmbAppList.Text

If I have just 2 values, this works fine, but I need it
to capture 3 values. Any ideas as to why this is not
working?

Any help would be appreciated.

Thanks.

Kirk

Sorry
but you can only redim the last dimension, the other will
remain the same, That information come in the Help
The last dimension is the one of the right, so if you have
three dimensions, like AppNames(aDim,bDim,cDim) you can
change only the cDim value and must retain fixed the other
values, so you need to change your code


Francisco Mariscal
fcomariscal at hotmail dot com



-----Original Message-----
I am getting a sub-script out of range error when trying
to populate my multi-dimensional array.

Below is the code for declaring the array as well as the
code to populate the code:
ReDim Preserve AppNames(0 To (ArrayCnter - 1), 0 To
(ArrayCnter - 1), 0 To (ArrayCnter - 1))

..
..
..
AppNames(j, 0) = cmbAppList.Text
AppNames(j, 1) = cmbWPA.Text
AppNames(j, 2) = AppLoc & "\" & cmbWPA.Text & "\" &
cmbAppList.Text

If I have just 2 values, this works fine, but I need it
to capture 3 values. Any ideas as to why this is not
working?

Any help would be appreciated.

Thanks.

Kirk

.

You dimensioned the array with 3 subscripts.

ReDim Preserve AppNames(0 To (ArrayCnter - 1), 0 To (ArrayCnter - 1), 0 To (ArrayCnter - 1))

Your assignment statements use only 2 subscripts.


On Tue, 26 Aug 2003 07:05:44 -0700, "Kirk" wrote:

I am getting a sub-script out of range error when trying
to populate my multi-dimensional array.

Below is the code for declaring the array as well as the
code to populate the code:

ReDim Preserve AppNames(0 To (ArrayCnter - 1), 0 To (ArrayCnter - 1), 0 To (ArrayCnter - 1))
.
.
.
AppNames(j, 0) = cmbAppList.Text
AppNames(j, 1) = cmbWPA.Text
AppNames(j, 2) = AppLoc & "\" & cmbWPA.Text & "\" &
cmbAppList.Text

If I have just 2 values, this works fine, but I need it
to capture 3 values. Any ideas as to why this is not
working?

Any help would be appreciated.

Thanks.

Kirk