首页 / 编程脚本 / 一个可以删除指定天数文件的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