メモがてら。

Option Explicit
On Error Resume Next

'変数宣言
Dim oFS, oSh
Dim sRecentPath, sRecentFilePath

'オブジェクト作成
Set oFS = CreateObject("Scripting.FileSystemObject")
Set oSh = CreateObject("WScript.Shell")

'Recentフォルダパス指定
sRecentPath = oFS.BuildPath(_
 oSh.ExpandEnvironmentStrings("%AppData%"),_
 "Microsoft\Office\Recent")

If oFS.FolderExists(sRecentPath) Then
	'Recentファイルパス指定
	sRecentFilePath = oFS.BuildPath(sRecentPath, "*.lnk")

	'ファイル削除
	oFS.DeleteFile sRecentFilePath
Else
	Set oFS = Nothing
	Set oSh = Nothing
	WScript.Quit
End If

Set oFS = Nothing
Set oSh = Nothing

OfficeXP以降かつ、ポリシーで「最近使ったファイルを消去する」とかなんとかいうポリシーを有効にしていればこんなのいらないけど、Office2000 や Office97 を面倒見ないといけないこともあってガッと作った。後悔はしていない。

関連記事:

(( 関連記事は特にありません ))