p; "*.*")
      Do While Len(s) &gt; 0
         If (s &lt;&gt; ".") And (s &lt;&gt; "..") Then
            m_iCount = m_iCount + 1
            ReDim Preserve m_cLink(1 To m_iCount) As cShellLink
            Set m_cLink(m_iCount) = New cShellLink
            m_cLink(m_iCount).Resolve GetLongPath(sPath &amp; s)
         End If
         s = Dir
      Loop
   End If
   
   Count = m_iCount
   
End Property

Public Property Get Item(ByVal iIndex As Long) As cShellLink
   Set Item = m_cLink(iIndex)
End Property

