第一步:在电脑桌面上新建一个文本文件,将其命名为“自动删除”。
第二步:将以下代码复制到刚刚新建的“自动删除”的文本文档中。具体代码如下:
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”,在弹出的对话框中输入目标文件夹(也就是我们要删除的文件夹的路径,这里我们需要将路径复制到这个文件处理器的框框中),然后点击“确定”即可自动删除掉了。
再打开目标文件夹之后就没有文件了。
电脑文件夹如何删除掉 扩展
我的答案是:
1、点击桌面开始图标,选择“运行”选项。在运行命令栏中输入“CMD”,点击确定。在CMD命令行中,输入“rd /s/q”然后输入需要删除的文件夹所在路径,按下回车键,强制删除文件夹成功。
2、也可以开机按F8不动,到高级选项出现在松开手,用上下键选安全模式,按照提示进入到安全模式中删除即可。
评论列表
希望我的文章对你有所帮助《电脑文件夹如何删除掉 强制删除文件夹》
推荐看看《山东英才学院分数线 22年山东英才学院多少分》
推荐看看《澎湃汹涌是什么意思 波涛澎湃什么意思》
第一步:在电脑桌面上新建一个文本文件,将其命名为“自动删除”。第二步:将以下代码复制到刚刚新建的“自动删除”的文本文档中。具体代码如下:option explicitdim fpath,fso,logfile,fwritefpath=inp
推荐看看《2013年山西高考分数线 2013年山西历年社保缴费标准》
写的太好了!