This script will Fix Delete Old Compress Files. (VBScript)
| 'Delete Compress Old Files On Error Resume Next Dim WSHShell, MyBox Message = "This script will fix Delete compress old files." & vbCr Message = Message & "This action will DELETE a Registry Key." & vbCr Message = Message & "Would you like to Continue?" X = MsgBox(Message, vbYesNo + vbQuestion, "Paul's XP and Vista Tweaks") If X = 6 Then Set WSHShell = WScript.CreateObject("WScript.Shell") WshShell.RegWrite "HKLM\Software\Microsoft\CurrentVersion\Explorer\VolumeCaches\Temporary Files\LastAccess", 0, "REG_DWORD" Shell.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\VolumeCaches\Compress old files\" MsgBox "Done!" & vbCrLf & "The registry key was Deleted." &vbCr & vbCr &_ "This script was downloaded from www.paulsxp.com.",64, "Compress old files fixed" Else MsgBox "Action was Canceled" &vbCr & "This script was downloaded from www.paulsxp.com.",48, "Nothing Done" End If |