Clear Recent Documents – ‘Start Menu.’

Posted in VBS Scripts, Windows XP - 1 October 2008 - No comment

Introductions: This is a portable script was redesigned to clear any “recent documents” that was left in the Start Menu. Just copy the code and enjoy!

Notes: Please use ‘Notepad++’ for this script.
———————————-
Part 1.
———————————-

'Version: 2.4a [Final]
'Author: Lair360
'Copyrighted by Lair360
'This script will clear all recent documents.
'Stage 1 out of 2
'--------------------------
On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
sRD = WshShell.SpecialFolders("Recent")
if sRD <> "" then objFSO.DeleteFile(sRD & "\*.lnk")
WScript.Echo "All recent - documents are clear!"

———————————-
Part 2.
———————————-

'Version: 2.4a [Final]
'Author: Lair360
'Copyrighted by Lair360
'This script will clear all recent documents + registry location.
'Stage 2 out of 2
'--------------------------
On Error Resume Next
Const HKEY_CURRENT_USER = &H80000001
strComputer = "."
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\RecentDocs"
Set objRegistry = GetObject("winmgmts:\\" & _
    strComputer & "\root\default:StdRegProv")
DeleteSubkeys HKEY_CURRENT_USER, strKeypath
Sub DeleteSubkeys(HKEY_CURRENT_USER, strKeyPath)
    objRegistry.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubkeys
    If IsArray(arrSubkeys) Then
        For Each strSubkey In arrSubkeys
            DeleteSubkeys HKEY_CURRENT_USER, strKeyPath & "\" & strSubkey
        Next
    End If
objRegistry.DeleteKey HKEY_CURRENT_USER, strKeyPath
End Sub
WScript.Echo "All recent - documents are clear!"

———————————-

Notice: This script is copyrighted by Lair360. Please don’t change / alter any of my codes.

Special Thanks,
Lair360

Tags: ,

Comments are closed.