Shared Function _ SHAddToRecentDocs(ByVal uFlags As Integer, ByVal filePath As String) As _ IntegerEnd Function' Add a file to the list of recent documents' If the parameter is an empty empty, the function clears all documents from ' the listSub AddToRecentDocs(ByVal fileName As String) Const SHARD_PATH As Long = 2 If fileName = "" Then SHAddToRecentDocs(SHARD_PATH, Nothing) Else SHAddToRecentDocs(SHARD_PATH, fileName) End IfEnd Sub