手机
当前位置:查字典教程网 >脚本专栏 >vbs >清除垃圾的VBS文件 自动查找多个盘
清除垃圾的VBS文件 自动查找多个盘
摘要:复制代码代码如下:remmadebycorreyremmadeat2007.9.22remitcanbedeleteyoucomputer'...

复制代码 代码如下:

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

【清除垃圾的VBS文件 自动查找多个盘】相关文章:

用vbscript实现在文本文件中搜索两个项

用vbs将本地文件替换为在文件服务器上找到的新版本

文件夹定时自动备份 AutoBackUpFolder.vbs

vbs实现恢复暂停的自动启动服务的脚本

自动删除超过10天的文件及文件夹的vbs代码

获得文件夹大小的VBS代码

灵活实用的VBS入门教程基础篇

高手必看的vbs的至尊境界

获取屏幕分辨率的VBS代码

vbs 自动复制U盘的内容

精品推荐
分类导航