Set a Restriction on the Items collection of the folder that filters on your
valid data condition and that will return a filtered Items collection. Use
the Count property to see how many items you need to set up for your array.

Hi,

in this case I´d use an approximately value for the dimension. The
sample I´ve just hacked without testing, please check with a little
value for ARRAY_BUFFER, e.g. 1 and 2.

Private Const ARRAY_BUFFER As Long = 1000
Private m_lPos As Long
Private m_lCnt As Long
Private m_aData() As Variant

Private Sub InitArray()
 m_lPos = -1
 m_lCnt = ARRAY_BUFFER
 ReDim m_aData(ARRAY_BUFFER - 1)
End Sub

Private Sub AddElement(v As Variant)
 m_lPos = m_lPos + 1
 m_aData(m_lPos) = v
 If m_lPos = (m_lCnt - 1) Then
   m_lCnt = m_lCnt + ARRAY_BUFFER
   ReDim Preserve m_aData(m_lCnt - 1)
 End If
End Sub

Private Sub TrimArray()
 Select Case m_lPos
 Case Is < 0
   m_lCnt = 1
   ReDim m_aData(0)
 Case Is < (m_lCnt - 1)
   m_lCnt = m_lPos + 1
   ReDim Preserve m_aData(m_lPos)
 End Select
End Sub

Public Sub TestArray()
 InitArray
 AddElement "1"
 AddElement "2"
 AddElement "3"
 TrimArray
End Sub