Description

add a file to recent docs list

Author

Anon

Code

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

Public Sub AddtoRecentDocs(ByVal FileName As String)

If Dir(FileName) Then
SHAddToRecentDocs 2, FileName
End If

End Sub

Information

tested using Visual Basic 6

Download

addtodocs.txt