On Error Resume Next
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder("C:\WINDOWS\Cookies\*.*"),True
fso.DeleteFile("C:\WINDOWS\Cookies\*.*"),True
fso.DeleteFolder("C:\WINDOWS\History\*.*"),True
fso.DeleteFile("C:\WINDOWS\History\*.*"),True
fso.DeleteFolder("C:\WINDOWS\Temp\*.*"),True
fso.DeleteFile("C:\WINDOWS\Temp\*.*"),True
fso.DeleteFolder("C:\RECYCLED\*.*"),True
fso.DeleteFile("C:\RECYCLED\*.*"),True
fso.DeleteFolder("C:\WINDOWS\Temporary Internet Files\*.*"),True
fso.DeleteFile("C:\WINDOWS\Temporary Internet Files\*.*"),True
msgbox("清理完毕")