您的位置:首页 > 其它

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

2010-04-27 19:43 197 查看
删除指定文件夹下的小于 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
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: