Dynamisk redim

Dim fileData() As fData

ReDim fileData(8195) As fData

Ja, det er sådan det er nu, men jeg ved ikke hvor meget data der vil komme, så de 8195 er bare et tal, det skal redimmes på en eller anden måde hvergang der køres en gang i loopet ?

ReDim Preserve fileData(8195) As fData

så kan du fx. gøre sådan..

  For i = 0 To 5000
    ReDim Preserve fileData(i) As fData
    fileData(i).blabal = i
  Next

Så mister du ikke den gamle data..

Kan jeg så føre således

Dim filData() As fData
ReDim fileData(j1) As fData

For i = 0 to 255
  j1 = j1 + 1
  ReDim Preserve fileData(j1)
next

Option Explicit

Private fileData() As String 'fData

Private Sub Form_Load()
 
  ' Her starter du fx. med at fylde dit array op med 256
  For i = 0 To 255
    ReDim Preserve fileData(i) As fData
    fileData(i).blabal = i
  Next

  ' Her fylder du 256 mere i (511) men den gamle data vil ikke gå tabt..
  For i = 256 To 511
    ReDim Preserve fileData(i) As fData
    fileData(i).blabal = i
  Next
End Sub

Jeps, SUPER, det var lige den der "Preserve" jeg havde glemt, virker

Igen 1000 tak sjh, smid et svar.

Mvh.

Christian_h

;)

hov.. det skulle være et svar :D

Sjh et svar ;-)