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

posted on 2010-04-27 19:43  封起De日子  阅读(126)  评论(0编辑  收藏  举报

导航