当前位置： 移动技术网 > IT编程>脚本编程>VBScript > 自动删除超过10天的文件及文件夹的vbs代码

自动删除超过10天的文件及文件夹的vbs代码

2017年12月08日  | 移动技术网IT编程  | 我要评论

特朗普就萨德发声,护士网站,玛雅遗宝

复制代码 代码如下:

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 - 10 then '判断是否超过10天
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 - 10 then '判断是否超过10天
fso.deletefolder(sfolder)
'wscript.echo file
end if
next
end function

将上面代码存为vbs文件即可使用。

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网