Having unbound Arrays of custom types

[thedesolatesoul]

I have a type declared:

   Type TaskItemType ( _
      TaskType As Int, _ 
      ScheduledTime As Long, _
      DestPath As String, _    
      SourcePath As String, _        
)
Dim TaskItems() As TaskItemType

But when I try to initialise it from another code module

Sub CreateTask(TaskType As Int, ScheduledTime As Long, SourcePath As String, DestPath As String, Filter As String)
   dpservice.TaskItems(dpservice.TotalQueItems).Initialize
   dpservice.TaskItems(dpservice.TotalQueItems).TaskType = TaskType
   dpservice.TaskItems(dpservice.TotalQueItems).ScheduledTime  = ScheduledTime 
   dpservice.TaskItems(dpservice.TotalQueItems).SourcePath = sourcepath
   dpservice.TaskItems(dpservice.TotalQueItems).DestPath  = DestPath

End Sub

I get an ArrayOutofBounds exception. Is it possible to do this at all?

 

[Erel]

Dim TaskItems() As TaskItemType

This code creates an empty array. You will need to call Dim again with the number of items before you can use it.

You can use a List instead. It will allow you to add as many items as needed.

Dim TI as TaskItemType
TI = List1.Get(i) 'cast the object to TaskItemType

 

[thedesolatesoul]

That sounds like a better idea. I should use a list.
Thanks!