Binaryworld - AddToRecentDocs - Adding a file to the list of recent documents ... [ VB.net -> Windows ]

<System.Runtime.InteropServices.DllImport("shell32")> Shared Function _
  SHAddToRecentDocs(ByVal uFlags As Integer, ByVal filePath As String) As _
  Integer
End Function

' Add a file to the list of recent documents
' If the parameter is an empty empty, the function clears all documents from
' the list

Sub AddToRecentDocs(ByVal fileName As String)
  Const SHARD_PATH As Long = 2
  If fileName = "" Then
    SHAddToRecentDocs(SHARD_PATH, Nothing)
  Else
    SHAddToRecentDocs(SHARD_PATH, fileName)
  End If
End Sub