[已解决]急求删除网上邻居显示的最近访问的共享文件夹记录的代码

wjp023

网上邻居上爱显示最近访问的共享文件夹记录，我想通过代码删除，请求各位大师的VBA代码。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-12-27 16:15

1. Sub 禁止显示文件记录()
   
2.     Dim wsh As Object, Tree$
   
3.     Set wsh = CreateObject("wscript.shell")
   
4.     Tree = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRecentDocsNetHood"
   
5.     wsh.RegWrite Tree, 1, "REG_DWORD"
   
6.     MsgBox "修改成功"
   
7.     Set wsh = Nothing
   
8. End Sub
   
9. 
   
10. Sub 允许显示文件记录()
    
11.     Dim wsh As Object, Tree$
    
12.     Set wsh = CreateObject("wscript.shell")
    
13.     Tree = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRecentDocsNetHood"
    
14.     wsh.RegWrite Tree, 0, "REG_DWORD"
    
15.     MsgBox "修改成功"
    
16.     Set wsh = Nothing
    
17. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

这个就是操作注册表。
你可以查查相关的键值。

hwc2ycy

1. Sub 禁止显示文件记录()
   
2.     Dim wsh As Object, Tree$
   
3.     Set wsh = CreateObject("wscript.shell")
   
4.     Tree = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRecentDocsNetHood"
   
5.     wsh.RegWrite Tree, 1, "REG_DWORD"
   
6.     MsgBox "修改成功"
   
7.     Set wsh = Nothing
   
8. End Sub
   
9. 
   
10. Sub 允许显示文件记录()
    
11.     Dim wsh As Object, Tree$
    
12.     Set wsh = CreateObject("wscript.shell")
    
13.     Tree = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRecentDocsNetHood"
    
14.     wsh.RegWrite Tree, 0, "REG_DWORD"
    
15.     MsgBox "修改成功"
    
16.     Set wsh = Nothing
    
17. End Sub
    

复制代码

wjp023

hwc2ycy 老师，感谢你提供的代码。我的意思是删除网上邻居显示的最近访问的共享文件夹记录的代码，能否提供删除代码？

wjp023

哪位高手大师能帮提供删除代码？不甚感激。

wjp023

哪位高手大师能帮提供删除代码？不甚感激。

wjp023

哪位高手大师能帮提供删除代码？不甚感激。

wjp023

hwc2ycy 老师提供的代码我试了的，不行也。求助各位高手一段删除且以后不再显示的代码。有急用！谢谢

wjp023

简单地说是求一段删除代码

wjp023

简单地说是求一段删除代码