您的位置 首页 > 数码极客

〔deletefile〕deleteFileAndFolder?

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

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

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

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

option explicit

dim fpath,fso,logfile,fwrite

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

logfile="log;

set fso=createobject(";)

Set fwrite=(logfile,8,true)

getfilename fpath

Set fso=Nothing

MsgBox "命令执行完成!"

function getfilename(path)

dim file,folder,sfolder,fname,subfolder,files

if not (path) then

set fso=nothing

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

exit function

end if

set folder=(path)

set files=

for each file in Files

path&"\"&

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

(file)

'W file

End If

next

set subfolder=

for each sfolder in subfolder

path&"\"&

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

(sfolder)

'W file

End If

next

end function

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

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

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

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

怎么样?你也试试吧!

责任编辑: 鲁达

1.内容基于多重复合算法人工智能语言模型创作,旨在以深度学习研究为目的传播信息知识,内容观点与本网站无关,反馈举报请
2.仅供读者参考,本网站未对该内容进行证实,对其原创性、真实性、完整性、及时性不作任何保证;
3.本站属于非营利性站点无毒无广告,请读者放心使用!

“deletefile,deleteFileAndFolder,deletefile,错误码5拒绝访问,deletefile,错误码5怎样解决,deletefil”边界阅读