删除某个目录下预定义天数以前的文件的脚本

最新推荐文章于 2024-04-13 22:24:21 发布

原创最新推荐文章于 2024-04-13 22:24:21 发布 · 2.4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vbscript #脚本 #string #function #path #encoding

Managment Script 专栏收录该内容

4 篇文章

订阅专栏

该博客介绍了一个VBScript脚本RemoveFilesByDate.wsf，用于删除预定义天数以前的文件。脚本可指定文件所在逻辑驱动器盘符和路径，还能设置删除天数，默认3天。给出了使用示例，将文件保存为.wsf格式后双击可查看使用方法。

<?xml version="1.0" encoding="gb2312" ?>
<?job error="true" debug="false"?>

<job id="Main">
    <runtime>
        <description>
          FileName: RemoveFilesByDate.wsf
          这个脚本删除预定义天数以前的文件.

        </description>
        <named
          name="Driver"
          helpstring="文件所在逻辑驱动器盘符"
          type="string"
          required="true"
        />
        <named
          name="Path"
          helpstring="文件所在路径"
          type="string"
          required="true"
        />
        <named
          name="OlderBy"
          helpstring="删除多少天以前的文件，缺省为3天。"
          type="string"
          required="false"
        />
        <example>
        Example:
          1. 删除3天以前的文件
          RemoveFilesByDate.wsf /Driver:C: /Path://test//

          2. 删除5天以前的文件
          RemoveFilesByDate.wsf /Driver:C: /Path://test// /OlderBy:5
        </example>
    </runtime>

      If WScript.Arguments.Count < 2 Then
         WScript.Arguments.ShowUsage
         WScript.Quit
      Else
         ' 从指定的磁盘目录上面查找符合条件的文件
         Dim strComputer
         Dim objWMIService
         Dim colFiles
         Dim objFSO
         strComputer = "." '在本地计算机上执行脚本
         Set objWMIService = GetObject("winmgmts:" _
           & "{impersonationLevel=impersonate}!//" _
           & strComputer & "/root/cimv2")
         Dim WMISql
         WMISql = "Select * from CIM_DataFile where Path = '" _
           & WScript.Arguments.Named.Item("Path") & "' AND Drive= '" _
           & WScript.Arguments.Named.Item("Driver") & "'"

         Set colFiles = objWMIService.ExecQuery(WMISql)

         ' 删除满足条件的文件
         ' 该脚本指搜索当前路径下面的文件，不搜索子目录
         Set objFSO = CreateObject("Scripting.FileSystemObject")

         Dim strWMIDate
         Dim ODate
         Dim OlderBy
         Dim objFile
         For Each objFile in colFiles
           strWMIDate = objFile.CreationDate
           ODate = WMIDateStringToDate(strWMIDate)
           If WScript.Arguments.Named.Item("OlderBy") <> "" Then
             OlderBy = CInt(WScript.Arguments.Named.Item("OlderBy"))
           Else
             OlderBy = 3
           End If
           If (Date - OlderBy) >= ODate Then
             objFSO.DeleteFile(objFile.Name)
           End If
         Next
      End If

      Function WMIDateStringToDate(dtmInstallDate) '转换WMI格式的日期类型到DateTime类型
        WMIDateStringToDate = CDate(Mid(dtmInstallDate, 5, 2) & "/" & _
          Mid(dtmInstallDate, 7, 2) & "/" & Left(dtmInstallDate, 4) _
          & " " & Mid (dtmInstallDate, 9, 2) & ":" & _
          Mid(dtmInstallDate, 11, 2) & ":" & Mid(dtmInstallDate, _
          13, 2))
      End Function
    ]]>
    </script>
</job>
</package>

把上面的文件粘贴复制到记事本，然后另存为RemoveFilesByDate.wsf

双击可以看见使用方法