自动删除超过10天的文件及文件夹的vbs代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
复制代码 代码如下: 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文件即可使用。 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢! |
你可能对下面的文章感兴趣
关于自动删除超过10天的文件及文件夹的vbs代码的所有评论