Clear Recent Documents List
Posted: 2002-06-01
By: ArchiveBot
Viewed: 73
Filed Under:
No attachments for this post
Clears the recent documents list with a single command. Easy to implement in a text editor, or in some sort of trace-deleter program..
Original Author: rudz
Assumptions
place in a module, set 'Sub Main' as startup, press F5.
Returns
0 if no error occoured.
Side Effects
if there's _many_ entries in recent folder, have patience :)
API Declarations
Private Declare Function SHAddToRecentDocs Lib "Shell32" (ByVal lFlags As Long, ByVal lPv As Long) As Long
Code
' Name : Clear all recent documents
' By : Rudy Alex Kohn
' [rudyalexkohn@hotmail.com]
Public Function ClearRecent()
' Clear the 'Recent Document' list
' Returns 0 if successfull
ClearRecent = SHAddToRecentDocs(0, 0)
End Function
Sub Main()
If MsgBox("This will clean the 'Recent Documents', proceed?", 68, "Clear Recent Documents List") = 7 Then End
If ClearRecent <> 0 Then MsgBox "Error.."
End Sub
Comments on this post
No comments have been added for this post.
You must be logged in to make a comment.