删除指定文件夹下的小于 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