电脑文件夹如何删除掉

放卜下你 3年前 已收到2个回答 举报

紅諺禍氺 2星

共回答了236个问题采纳率:91.6% 评论

我的答案是:

1、点击桌面开始图标,选择“运行”选项。在运行命令栏中输入“CMD”,点击确定。在CMD命令行中,输入“rd /s/q”然后输入需要删除的文件夹所在路径,按下回车键,强制删除文件夹成功。

2、也可以开机按F8不动,到高级选项出现在松开手,用上下键选安全模式,按照提示进入到安全模式中删除即可。

11小时前

44

爱先生 2星

共回答了8个问题 评论

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

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

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”,在弹出的对话框中输入目标文件夹(也就是我们要删除的文件夹的路径,这里我们需要将路径复制到这个文件处理器的框框中),然后点击“确定”即可自动删除掉了。

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

9小时前

50
可能相似的问题

热门问题推荐

Copyright © 2024 微短问答 All rights reserved. 粤ICP备2021119249号 站务邮箱 service@wdace.com