onvert it to a path:
      Path = PathFromPidl(pidl)
      ' Free the pidl:
      Allocator.Free ByVal pidl
      pidl = 0
   Else
      Err.Raise 45501, App.EXEName &amp; ".cRecentDocuments", "Failed to get Recent
       Documents folder location"
   End If
   
End Property

Public Property Get Count() As Long
Dim sPath As String
   
   m_iCount = 0
   Erase m_cLink
   
   sPath = Path
   If Len(sPath) &gt; 0 Then
      sPath = NormalizePath(sPath)
            
      Dim s As String
      s = Dir(sPath &am