实用小程序(1)：清除系统临时文件程序增强版

软件世界

钟德传 · 2004年1月5日

　　《电脑报》2003年第49期54版刊登了名为《轻松编程，清除系统临时文件》的文章。但笔者在试用该程序时，有时会出现错误信息，使得程序无法达到目的。

　　就其原因是，如果系统尚有程序未被关闭在temp目录中就会有程序正在使用的文件，只要临时目录中存在被系统或其他程序使用而不能被删除的文件，都会导致错误信息。

　　所以笔者根据原文的思想重写了该程序，以使它更完善。打开记事本，输入如下代码如下：

　　Dim fs,f,fc

　　Const TemporaryFolder=2

　　On Error Resume Next

　　Set fs=CreateObject("Scripting.filesystemObject")

　　Set fs=fs.GetSpecialFolder(2)

　　Set fc=fs.SubFolders

　　For Each f In fc

　　f.Delete True

　　Next

　　Set fc=fs.Files

　　For Each f In fc

　　f.Delete True

　　Next

　　最后把文件另存为.vbs文件。

　　程序说明

　　以上程序加入了On Error Resume Next语句，可使程序从紧随产生错误语句之后的语句继续执行，或是从紧随最近一次调用过程(该过程含有On Error Resume Next 语句)的语句继续执行，从而避免了出现错误而中断程序执行的情况；在本例中的作用就是跳过因正被系统或程序使用而不可删除的文件或文件夹，继续删除其余的临时文件。另外在具体的删除过程中是通过枚举临时文件夹中的子文件夹和文件，再一一删除的。

　　以上程序在Windows XP+SP1下调试通过。