- UID
- 10253
- 帖子
- 3334
- 精华
- 0
- 贡献
- 20
- 推广
- 0
- 有效BUG
- 0
- 来自
- 江门·中国
- 注册时间
- 2006-4-28
|
- Dim fso
- Set fso = CreateObject("Scripting.FileSystemObject")
- Dim tempfolder
- Const TemporaryFolder = 2
- Set tempfolder = fso.GetSpecialFolder(TemporaryFolder)
- 'Wscript.Echo tempfolder
- Set WshShell=Wscript.CreateObject("Wscript.Shell")
- Set WshSysEnv=WshShell.Environment("Process")
- 'Wscript.Echo WshSysEnv.Item("SYSTEMROOT")
- path=WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\cache")
- path1 = path & "\Content.IE5"
- inipath = path & "\desktop.ini"
- str_cmd1 = "cmd.exe /c del /f /q /ash """ & inipath & """"
- str_cmd = "cmd.exe /c del /f /q """ & path1 & """"
- WshShell.run str_cmd1,0
- WshShell.run str_cmd,0
- Wscript.sleep(1)
- WshShell.run str_cmd,0
复制代码 以上代码写得很难看. 不过是我自己一直在用的.
另存为 clean.vbs
是清空缓存的. |
|