如何使用vbs实现自动删除超过10天的文件及文件夹-创新互联

小编给大家分享一下如何使用vbs实现自动删除超过10天的文件及文件夹，相信大部分人都还不怎么了解，因此分享这篇文章给大家参考一下，希望大家阅读完这篇文章后大有收获，下面让我们一起去了解一下吧！

在吐鲁番等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供成都网站制作、做网站、外贸营销网站建设 网站设计制作按需开发网站,公司网站建设,企业网站建设,品牌网站设计,全网营销推广,外贸营销网站建设,吐鲁番网站建设费用合理。

复制代码 代码如下:

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文件即可使用。

以上是“如何使用vbs实现自动删除超过10天的文件及文件夹”这篇文章的所有内容，感谢各位的阅读！相信大家都有了一定的了解，希望分享的内容对大家有所帮助，如果还想学习更多知识，欢迎关注创新互联行业资讯频道！

当前文章：如何使用vbs实现自动删除超过10天的文件及文件夹-创新互联
本文来源：http://cdkjz.cn/article/jcego.html