如何清除开始菜单文档纪录

[「已注销」]

开始菜单--文档 里会保存你最新看过的文件名称和路径，如何用vb程序清除？

[TechnoFantasy]

用Visual Basic编程实现清空文档菜单

--------------------------------------------------------------------------------

2004-05-24 刘红军



　　“开始”按钮的“文档”菜单中记录着你打开过的各种文档，如Word文档、图片文件、以及保存过的网页文件等。如果这台计算机是公用的，那么你最近操作过的文件别人会一目了然。如何清除文档菜单内容呢？

　　这些内容其实是快捷方式，位于Windows系统目录的Recent文件夹(默认是隐藏的)下，可以直接打开资源管理器删掉。这里介绍如何通过VB编程实现，程序包括一个窗体和一个模
块，在窗体中添加两个按钮和一个标签(名称：LblResult)。

　　1、模块中的代码：

　　'声明API函数

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

　　'自定义函数，不成功则返回0

　　Public Function ClearDocumentsMenu() As Boolean

　　SHAddToRecentDocs 2, vbNullString

　　ClearDocumentsMenu = Err.LastDllError = 0

　　End Function

　　2、窗体中的代码:

　　Option Explicit

　　Private Sub Command1_Click()

　　Dim rc, rc1 As Long

　　'清空文档菜单

　　If ClearDocumentsMenu() = True Then

　　LblResult = "清空成功!"

　　Else

　　LblResult = "清空失败!"

　　End If

　　End Sub

　　Private Sub Command2_Click()

　　Unload Me

　　End Sub

　　

[「已注销」]

清除失败

[TechnoFantasy]

Public Declare Sub SHAddToRecentDocs Lib "shell32" (ByVal Hikaru As Long, ByVal Utada As Any)


Private Sub Command1_Click()
Call SHAddToRecentDocs(2, vbNullString)
End Sub

[TechnoFantasy]

我这里调用成功了，你试一下上面的简化代码。

[「已注销」]

现在可以了
我原来是删文件的，象这样
'Dim cachePath As String '-----------------------------------------------------------------------------cache
'cachePath = Reg.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Cache")
'Kill cachePath & "\*.*" '& filename2 '删除IE缓存文件
也可以删掉，但不知道有什么缺陷没有的！

[TechnoFantasy]

你的方法应该也是可以的，不过我不太确定是否会有问题。