im building up an array from a listview the Column across wont every go above 6
how do change Dim entrys(0 To 7000) As String to an unknown amount
no limit
how do change Dim entrys(0 To 7000) As String to an unknown amount
no limit
Code:
Dim strLine(0 To 6) As String '''''''''this is ok the Columns across wont go over 6
Dim entrys(0 To 7000) As String '''''''''but sometimes the records exceed unknown amounts
Dim i
entrys(0) = ListView1.ListItems.Count
With ListView1.ListItems
For i = 1 To .Count
strLine(0) = .Item(i)
strLine(1) = .Item(i).ListSubItems(1)
strLine(2) = .Item(i).ListSubItems(2)
strLine(3) = .Item(i).ListSubItems(3)
strLine(4) = .Item(i).ListSubItems(4)
strLine(5) = .Item(i).ListSubItems(5)
strLine(6) = .Item(i).ListSubItems(6)
entrys(i) = Join(strLine, "¦")
Erase strLine
Next
End With