删除指定文件夹下的小于 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
本文介绍了一个使用VBS脚本批量删除指定目录下大小小于4KB的所有文件的方法。该脚本通过创建文件系统对象来获取目标文件夹内的所有文件,并遍历这些文件以检查其大小,若文件大小小于4KB,则进行删除。
521

被折叠的 条评论
为什么被折叠?



