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

372 阅读 0 评论 246 点赞

我是靠谱客的博主老实大神，这篇文章主要介绍一个可以删除指定天数文件的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 