THW = &amp;H3&amp;

Private Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long,
 pv As Any)

' // Recent docs location:
Private Const CSIDL_RECENT = &amp;H8                      '(user name)\Recent
Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" _
   (ByVal hWndOwner As Long, _
    ByVal nFolder As Long, _
    pidl As Long) As Long

Private Declare Function SHGetPathFromIDList Lib "shell32.dll" _
   Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As S