手机
当前位置:查字典教程网 >脚本专栏 >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文件 自动查找多个盘】相关文章:

vbs 获取当前目录文件数量的代码(不包括子文件夹中的)

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

VBS 断网后自动关机30秒后

用VBS脚本删除指定以外的文件或文件夹

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

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

VBS下载文件的新方法

高手必看的vbs的至尊境界

获取屏幕分辨率的VBS代码

vbs复制文件夹的实现代码

精品推荐
分类导航