KB185990 - How To Improve Performance of Object De-allocation

MORE INFORMATION

When de-allocating a large number of objects in a collection or an array, performance of the de-allocation process can be improved if objects are de-allocated in the reverse order of their creation--this results in linear performance. For arrays of objects this is simple; however, for collections it can be difficult to determine the allocation order. In this case, the following code provides you with good to reasonable performance:

   Public Sub DeallocCollection(colSource as Collection)
      Dim lIndex  as Long
      Dim lMax    as Long

      lMax = colSource.Count
      ReDim aryLocal(lMax) as object
      For lIndex = 1 to lMax
         if isObject(colSource.index(1)) then _
            Set aryLocal(lIndex) = colSource.index(1)
         colSource.Remove(1)
      Next
      set colSource = nothing

      For lIndex = lMax to 1 step -1
         set aryLocal(lIndex) = Nothing
      Next
   End Sub

The performance improvement depends upon the level of fragmentation in the collection.

How To Improve Performance of Object De-allocation

SUMMARY

MORE INFORMATION