VBS能否删除开始----文档里抽历史记录？

ww0000 · 发表于 2013-9-5 11:36:14

VBS能否删除开始----文档里抽历史记录？
C:\Documents and Settings\Administrator\Recent

Recent文件夹是隐藏的！

batman · 发表于 2013-9-5 15:53:41

Dim objFSO, Path
Set objFSO = CreateObject("Scripting.FileSystemObject")
Path = "C:\Documents and Settings\Administrator\Recent"
For Each File In objFSO.GetFolder(Path).Files
objFSO.DeleteFile File
Next
Set objFSO = Nothing
WScript.Echo "OK"

复制代码

ww0000 · 发表于 2013-9-5 16:55:40

回复 2# batman

谢谢，能删除！
但我将
C:\Documents and Settings\Administrator\Recent
换成
C:\Documents and Settings\Administrator\Local Settings\Temporary Internet Files

为什么不能删除上网历史记录呢？

ww0000 · 发表于 2013-9-5 17:31:25

本帖最后由 ww0000 于 2013-9-6 08:14 编辑

这个网上找的,也不行

On error resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshSysEnv = WshShell.Environment("Process")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Const DeleteReadOnly = TRUE
objFSO.DeleteFile(WshSysEnv("userprofile") & "\Local Settings\Temporary Internet Files\*.*"), DeleteReadOnly
objFSO.DeleteFile(WshSysEnv("userprofile") & "\Local Settings\Temp\*.*"),DeleteReadOnly
ShowSubFolders objFSO.GetFolder(WshSysEnv("userprofile") & "\Local Settings\Temporary Internet Files")
ShowSubFolders objFSO.GetFolder(WshSysEnv("userprofile") & "\Local Settings\Temp")
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
objFSO.DeleteFile(Subfolder.Path & "\*.*"), DeleteReadOnly
ShowSubFolders Subfolder
Next
End Sub

复制代码

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[问题求助] VBS能否删除开始----文档里抽历史记录？

评分