astDllError, App.EXEName, "Failed to add the item:"
             &amp; WinApiError(Err.LastDllError)
         End Select
      End If
   End If
   
End Sub



Private Property Get Allocator() As IMalloc
    If alloc Is Nothing Then SHGetMalloc alloc
    Set Allocator = alloc
End Property

Public Property Get Path() As String
Dim pidl As Long
   ' Get pidl of special folder:
   SHGetSpecialFolderLocation 0, CSIDL_RECENT, pidl
   If Err = 0 Then
      On Error GoTo 0
      
      Dim sPath As String
      ' C