'Clear Find History
'© Doug Knox - 11/02/2001
'Downloaded from www.dougknox.com

Option Explicit

On Error Resume Next

Dim WshShell, P, Title, Caption, X

Set WshShell = WScript.CreateObject("WScript.Shell")
P = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Doc Find Spec MRU\"
Title = "Find History entries have been removed."
Caption = "Finished!"

WshShell.RegDelete P

X = MsgBox(Title, 4096, Caption)