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

　　平常我们电脑用得久了，就会产生一些垃圾文件夹，这些文件夹不仅会占用空间，还会影响到电脑的运行速度。怎么解决这个问题呢？
　　今天小咖教大家用一段代码来删除你电脑中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=＂＂>
　　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=＂＂>
　　fso.deletefolder(sfolder)
　　＂Wscript.Echo file
　　End If
　　next
　　end function
　　注意：代码中的20代表要删除20天前的文件夹，如果你想删除更久之前的可以把20换成更长的时间。
　　第三步：保存这个txt文件，然后将其后缀名改为VBS，即文件为＂自动删除.VBS＂。
　　第四步：双击＂自动删除.VBS＂，在弹出的对话框中输入目标文件夹（也就是我们要删除的文件夹的路径，这里我们需要将路径复制到这个文件处理器的框框中），然后点击＂确定＂即可自动删除掉了。
　　再打开目标文件夹之后就没有文件了。
　　怎么样？你也试试吧！