一个可以删除指定天数文件的vbs脚本

作者: 老婆孩子热炕头儿
来源: 51数据库
2021-07-28

复制代码代码如下:

const filepath = "e:\log" '定义目录 

set fso = createobject("scripting.filesystemobject") 
showsubfolders fso.getfolder(filepath) 
sub showsubfolders(folder) 
  for each subfolder in folder.subfolders 
    set files = subfolder.files 
     if files.count <> 0 then 
     for each file in files 
           if file.datelastmodified < now - 30 then   '判断是否超过30天 
                 fso.deletefile(subfolder.path & "" & file.name) '删除 
                 'wscript.echo subfolder.path & "" & file.name     '显示    
           end if 
           next 
     end if 
     showsubfolders subfolder 
  next 
end sub 