注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

凉茶

 
 
 

日志

 
 

VBS批处理删除指定天数前的文件及文件夹  

2010-06-26 12:02:12|  分类: 电脑应用 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

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

  评论这张
 
阅读(394)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017