[分享]用EXCEL宏清理系统垃圾

andysky

QUOTE:

Sub 删除垃圾文件()
intAnswer = MsgBox("你想删除垃圾文件吗?", vbYesNo, "提示")
Set objShell = CreateObject("Wscript.Shell")
If intAnswer = vbYes Then
objShell.Run ("%comspec% /c del /f/s/q %systemdrive%\*.tmp"), 0, True
objShell.Run ("%comspec% /c del /f/s/q %systemdrive%\*._mp"), 0, True
objShell.Run ("%comspec% /c del /f/s/q %systemdrive%\*.log"), 0, True
objShell.Run ("%comspec% /c del /f/s/q %systemdrive%\*.gid"), 0, True
objShell.Run ("%comspec% /c del /f/s/q %systemdrive%\*.chk"), 0, True
objShell.Run ("%comspec% /c del /f/s/q %systemdrive%\*.old"), 0, True
objShell.Run ("%comspec% /c del /f/s/q %systemdrive%\recycled\*.*"), 0, True
objShell.Run ("%comspec% /c del /f/s/q %windir%\*.bak"), 0, True
objShell.Run ("%comspec% /c del /f/s/q %windir%\prefetch\*.*"), 0, True
objShell.Run ("%comspec% /c rd  /s/q   %windir%\temp & md %windir%\temp"), 0, True
objShell.Run ("%comspec% /c del /f/q   %userprofile%\cookies\*.*"), 0, True
objShell.Run ("%comspec% /c del /f/q   %userprofile%\recent\*.*"), 0, True
objShell.Run ("%comspec% /c del /f/s/q %userprofile%\Local Settings\Temporary Internet Files\*.*"), 0, True
objShell.Run ("%comspec% /c del /f/s/q %temp%\*.*"), 0, True
objShell.Run ("%comspec% /c del /f/s/q %userprofile%\Local Settings\Temp\*.*"), 0, True
objShell.Run ("%comspec% /c del /f/s/q %userprofile%\recent\*.*"), 0, True
MsgBox "已经清除系统中的所有临时文件!", vbInformation, "提示"
Else
MsgBox "退出程序.", vbApplicationModal, "andysky提示"
End If
End Sub

yuanzhuping

谢谢了.

liujy

谢谢andysky兄分享！[em23][em22][em24][em25][em26][em27]

TGB

这样都行!

lotustower

objShell.Run ("%comspec% /c del /f/q   %userprofile%\cookies\*.*"), 0, True

刪除 cookies , 考慮 考慮 !!

andysky

可以将代码写VBS文件中 kzxwYI1M.rar (508 Bytes, 下载次数: 55)

2007-3-14 10:03 上传

点击文件名下载附件
[分享]用EXCEL宏清理系统垃圾

Cary1018

将下面的代码拷到TXT中,另存为   .BAT  文件,双击运行就行了，我一直用它清理LJ呢。

@echo off

echo Clearing，please waitting......

del /f /s /q %systemdrive%\*.tmp

del /f /s /q %systemdrive%\*._mp

del /f /s /q %systemdrive%\*.log

del /f /s /q %systemdrive%\*.gid

del /f /s /q %systemdrive%\*.chk

del /f /s /q %systemdrive%\*.old

del /f /s /q %systemdrive%\recycled\*.*

del /f /s /q %windir%\*.bak

del /f /s /q %windir%\prefetch\*.*

rd /s /q %windir%\temp & md %windir%\temp

del /f /q %userprofile%\cookies\*.*

del /f /q %userprofile%\recent\*.*

del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*"

del /f /s /q "%userprofile%\Local Settings\Temp\*.*"

del /f /s /q "%userprofile%\recent\*.*"

echo clearing have Finished！please press any key to quit,thanks for using.

echo. & pause

andysky

QUOTE:

以下是引用Cary1018在2007-3-15 21:51:55的发言：

将下面的代码拷到TXT中,另存为   .BAT  文件,双击运行就行了，我一直用它清理LJ呢。

@echo off

************************

在这里只讨论用EXCEL调用方法…………

hhzjxss

谢谢了！收藏，果然不错！

hhzjxss

谢谢了！收藏，果然不错！