删除指定文件夹下的小于 4K的所用文件...

删除指定文件夹下的小于 4K的所用文件...

(记一次垃圾邮件的删除..)

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
on error resume Next

set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder("D:\Temp\")

set files=folder.files
for each file in files
i = (file.Size/1024)
If (i<4) Then
file.Delete
End If

next