教你快速删除电脑久存的无用文件夹 为电脑腾出空间

平常我们电脑用得久了，就会产生一些垃圾文件夹，这些文件夹不仅会占用空间，还会影响到电脑的运行速度。怎么解决这个问题呢？

今天小咖教大家用一段代码来删除你电脑中N天前无用的文件。具体的操作步骤如下：

第一步：在电脑桌面上新建一个文本文件，将其命名为“自动删除”。

第二步：将以下代码复制到刚刚新建的“自动删除”的文本文档中。具体代码如下：

option explicit

dim fpath,fso,logfile,fwrite

fpath=inputbox ("输入目标文件夹","文件处理器")

logfile="logfile.txt"

set fso=createobject("scripting.filesystemobject")

Set fwrite=fso.opentextfile(logfile,8,true)

getfilename fpath

fwrite.close

Set fso=Nothing

MsgBox "命令执行完成！"

function getfilename(path)

dim file,folder,sfolder,fname,subfolder,Files

if not fso.folderexists(path) then

set fso=nothing

msgbox "目标文件夹不存在！"

exit function

end if

set folder=fso.getfolder(path)

set files=folder.files

for each file in Files

fwrite.writeline path&"\"&file.name

If file.DateLastModified < Now - 20 Then '判断是否超过20天

fso.DeleteFile(file)

'Wscript.Echo file

End If

next

set subfolder=folder.subfolders

for each sfolder in subfolder

fwrite.writeline path&"\"&sfolder.name

If sfolder.DateCreated < Now - 20 Then '判断是否超过20天

fso.deletefolder(sfolder)

'Wscript.Echo file

End If

next

end function

注意：代码中的20代表要删除20天前的文件夹，如果你想删除更久之前的可以把20换成更长的时间。

第三步：保存这个txt文件，然后将其后缀名改为VBS，即文件为“自动删除.VBS”。

第四步：双击“自动删除.VBS”，在弹出的对话框中输入目标文件夹（也就是我们要删除的文件夹的路径，这里我们需要将路径复制到这个文件处理器的框框中），然后点击“确定”即可自动删除掉了。

再打开目标文件夹之后就没有文件了。

怎么样？你也试试吧！