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

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