一個刪除特定日期前產生的檔案 的 SCRIPT

因為主任的需求 , 花了一點時間 寫了這一段 ,
放上來 , 也許有人有需要 可以參考

下面這段 請 存成 Delfiles.vbs
可能斷行會有問題 , 有需要的 , 我再寄

' 執行請用 cscript delfiles.vbs'
strDate = Date()-30
Wscript.Echo strDate
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name='C:\temp'} Where " _
& "ResultClass = CIM_DataFile" )
For Each objFile In colFiles
If InStr(objFile.FileName, "setup") and WMIDateStringToDate(objFile.CreationDate) < strDate Then
Wscript.Echo objFile.Name
objFile.Delete
End If
Next

Function WMIDateStringToDate(dtmDate)
WMIDateStringToDate = _
CDate( Left(dtmDate, 4) & "/" & _
Mid(dtmDate, 5, 2) & "/" & Mid(dtmDate, 7, 2) )
End Function