删除修改日期超过5天（5天前的历史文件/文件夹）的文件和子文件夹

1. 
   
2. Const strPath = "D:\baidui\TTASP\TXT"
   
3. Dim objFSO
   
4. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
   
5. 
   
6. Call Search (strPath)
   
7. 
   
8. Response.Write "清理完毕！"
   
9. 
   
10. Sub Search(str)
    
11.         Dim objFolder, objSubFolder, objFile
    
12.         Set objFolder = objFSO.GetFolder(str)
    
13.         For Each objFile In objFolder.Files
    
14.                 If objFile.DateLastModified < (Now() - 5) Then  '五天前的记录
    
15.                         objFile.Delete(True)
    
16.                 End If
    
17.         Next
    
18.        
    
19.         For Each objSubFolder In objFolder.SubFolders
    
20.                 Search(objSubFolder.Path)
    
21.                 ' 文件都清理了，现在看看
    
22.                 ' 文件夹是否空的。
    
23.                 If (objSubFolder.Files.Count = 0) Then
    
24.                         objSubFolder.Delete True
    
25.                 End If
    
26.         Next
    
27.        
    
28. End Sub

复制代码