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

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

转载于:https://www.cnblogs.com/yuhe7919/archive/2009/11/13/vbs.html