清除垃圾的VBS文件 自动查找多个盘
导读：收集整理的这篇文章主要介绍了清除垃圾的VBS文件 自动查找多个盘，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下:rem made by correy rem ma...
收集整理的这篇文章主要介绍了清除垃圾的VBS文件 自动查找多个盘，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下:rem made by correy
rem made at 2007.9.22
rem IT can be delete you computer's the follow things(except cd,DVD)
rem it can be delete empty file and folder
rem it can be delete .tmp ._mp .LOG .gid .chk .old file
rem it can be delete temp,recent,cookis,recycled,PRefetch,and "Temporary internet Files" folder.
rem i am thinking how to delete the same size and same name's file and folder
On Error GoTo 0
Set fso = CreateObject("Scripting"& "."& "FileSystem"& "Object")
for n = 1 to 3
For each d in fso.Drives
if d.drivetyPE=4 then
Exit For
else
scan(d)
end if
next
next
sub scan(folder)
on error resume next
set folder=fso.getfolder(folder)
for each file in folder.files
if file.size=0 then
file.delete(true)
end if
ext=fso.GetExtensionName(file)
ext=lcase(ext)
if ext="tmp" or ext="_mp" or ext="log" or ext="gid" or ext="chk" or ext="old" then ''30
file.delete(true)
end if
next
for each subfolder in folder.subfolders
rem instrrev() can't be used,i want to find "\".
if left(subfolder.path,4)="temp" or left(subfolder.path,8)="recycled" then
subfolder.delete(true)
elseif left(subfolder.path,6)="recent" or left(subfolder.path,7)="cookis" then
subfolder.delete(true) rem 40
elseif left(subfolder.path,24)="Temporary Internet Files" or left(subfolder.path,8)="prefetch" then
subfolder.delete(true)
end if
if subfolder.size=0 then subfolder.delete(true)
scan(subfolder)
next
end sub
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 清除垃圾的VBS文件 自动查找多个盘
本文地址： https://pptw.com/jishu/609807.html